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ABSTRACT 


As  part  of  the  development  of  the  capabilities  of  the 
Command,  Control  and  Communications  ( C 3 )  Laboratory  at  the 
Naval  Postgraduate  School,  there  was  a  need  for  an  in-house 
computer  assisted  tactical  war  game.  The  objective  of  this 
thesis  was  to  satisfy  that  need.  An  anti-submarine  warfare 
board  game,  UP  SCOPE!,  which  was  designed,  developed  and 
produced  by  Simulations  Productions,  Inc.  of  New  York,  was 
used  as  the  model.  This  thesis  provides  an  interactive 
computer  assisted  anti-submarine  warfare  war  game  called  Up 
Scope  which  is  written  in  FORTRAN.  This  thesis  also  develops 
a  framework  for  any  future  computer  adaptation  of  a  tactical 
board  game,  details  a  players  manual  and  gives  full  document¬ 
ation  of  the  computer  programming.  Program  listings,  a 
sample  game  and  several  tactical  scenarios  are  also  included. 
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I.  INTRODUCTION 


All  war  games  are  based  on  some  form  of  a  model,  and  so 
it  is  natural  that  a  research  effort  concerning  war  gaming 
be  directed  toward  the  development  of  a  model  suitable  for 
that  purpose.  However,  this  thesis  does  not  develop  a 
model,  basically  for  two  reasons.  The  first  is  the  fact  that 
the  authors'  interests  are  in  computer  applications.  The 
second  is  the  great  wealth  of  models  and  modelling  technology 
available  today.  James  F.  Dunnigan,  the  president  of  Sim¬ 
ulations  Publications  Inc.  (SPI),  writes,  "There  are  two 
game-design  rules  that  control  all  others. . .Keep  it  simple... 
(and) .. .plagiarize. "  When  he  says  "plagiarize"  he  means 
whenever  possible  use  existing  technology  for  there  is  no 
reason  to  recreate  what  has  been  done  before.  The  authors 
took  Mr.  Dunnigan  at  his  word,  and  selected  an  SPI  board 
game  entitled  "UP  SCOPE!”  as  the  war  game  on  which  to  base 
their  work. 

This  research  effort  has  two  major  objectives.  The 
first  is  to  develop  an  "in  house"  war  gaming  capability 
for  the  Command,  Control  and  Communications  (C3)  Laboratory 
located  at  the  Naval  Postgraduate  School.  This  capability  is 
necessary  because  it  is  not  sufficient  for  military  students 
to  know  what  types  of  games  exist,  the  objectives  they  are 
expected  to  accomplish  and  how  to  play  them.  The  students 
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must  also  be  given  the  opportunity  to  gain  firsthand 
knowledge  about  the  design,  development  and  programming  of 
war  games.  The  second  objective  is  to  examine  the  problems 
associated  with  the  conversion  of  a  tactical  board  game  to  a 
"user-friendly"  computer-assisted  war  game.  The  thesis 
develops  a  general  outline  to  follow  when  a  conversion  is 
planned,  and  discusses  the  problems  encountered  during  the 
conversion  of  "UP  SCOPE!." 

Chapter  II,  Description  and  Play  of  Up  Scope,  provides 
the  reader  with  the  background,  rules  and  procedures 
necessary  to  play  the  game.  Chapter  III  is  a  step  by  step 
"player's  guide"  to  the  computer  version  of  "Up  Scope!."  It 
leads  the  player  through  the  game  by  including  and  discussing 
key  portions  of  a  practice  game.  The  entire  practice  game 
is  included  as  an  Appendix.  Chapter  IV  is  titled  "Program 
Documentation,"  and  includes  detailed  documentation  of  the 
FORTRAN  statements.  The  program  itself  uses  standard 
FORTRAN  IV,  and  is  presently  operating  on  an  IBM  360 
computer.  The  only  change  required  to  transport  the  program 
is  the  inclusion  of  a  random  number  generator  subroutine 
called  RANDOM.  The  IBM  360  located  at  the  Naval  Postgraduate 
School  has  such  a  subroutine  in  its  library.  It  is  hoped 
that  Chapter  IV  will  make  it  easy  for  the  program  to  become 
the  basis  for  future  research  and  expansion  by  other  students 
having  an  interest  in  "grass  roots"  war  gaming.  Chapter  V 
presents  the  outline  developed  for  conversion  of  a  board 
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game  to  a  computer-assisted  game,  and  it  discusses  the 
problems  encountered  and  changes  made  to  "UP  SCOPE"  during 
the  conversion. 

It  is  believed  that  the  outline  and  discussion  of 
problems  encountered  included  in  the  thesis  and  actual  play 
of  the  computerized  version  of  "UP  SCOPE!”  will  greatly 
increase  the  military  students  awareness  of  the  gaming,  and 
give  him  a  better  understanding  of  what  designing,  developing 
and  programming  a  war  game  entails. 


II.  DESCRIPTION  AND  PLAY  OF  UP  SCOPE 


A.  INTRODUCTION 

Up  Scope  is  essentially  a  computer  aided,  interactive, 
tactical  simulation  of  submarine  and  anti-submarine  warfare 
in  the  1980's.  It  has  been  adapted  from  the  tactical  sim¬ 
ulation  board  game  "UP  SCOPE!"  which  was  designed,  produced 
and  marketed  by  Simulations  Publications  Inc.,  New  York,  N.Y. 
"UP  SCOPE!"  is  used  with  SPI's  permission. 

This  war  game  furnishes  fairly  complete,  albeit 
unclassified,  information  on  every  significant  submarine  and 
anti-submarine  platform  and  weapon  system  employed  by  both  the 
NATO  powers  and  the  Soviet  Union  today.  Although  this  game  is 
essentially  designed  for  two  players  (Red  and  Blue),  any 
reasonable  number  can  play.  As  in  most  war  games,  the 
additional  players  would  be  relegated  to  subordinate  commander 
roles.  It  should  be  noted  that  when  the  game  is  played  with 
two  players,  the  game  is  rigid-ruled  and  self-umpiring. 

Since  this  thesis  is  unclassified,  the  actual  performance 
parameters  for  weapon  systems,  sensors,  aircraft,  ship  and 
submarine  characteristics  were  derived  from  unclassified 
sources  and  adapted  in  conjunction  with  parameters  currently 
implemented  in  the  board  game  "UP  SCOPE!" 
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B.  GENERAL  COURSE  OF  PLAY 


Up  Scope  is  basically  designed  for  two  players,  one  of 
whom  normally  commands  the  submarine  force  while  the 
opposition  commands  the  anti-submarine  force.  After  deciding 
upon  the  particular  scenario  to  be  played,  each  player 
selects  his  force  composition.  Appendices  B,  C  and  D  contain 
the  relevant  Ship,  Weapon  and  Aircraft  Data  Summaries.  The 
following  table  illustrates  the  number  of  surface  ship  and 
submarine  classes  available  for  selection  from  each  repre¬ 
sented  country. 

Number  of  Number  of 

Country  Surface  Ship  Classes  Submarine  Classes 


Australia 

5 

1 

Canada 

5 

1 

France 

16 

5 

Great  Britain 

12 

5 

Italy 

11 

3 

Soviet  Union 

13 

8 

United  States 

28 

11 

West  Germany 

4 

2 

Up  Scope  is  played  in  a  series  of  successive  game  turns, 
each  of  which  consists  of  a  command  phase,  a  combat  phase, 
a  movement  phase,  a  search  phase,  a  victory  determination 
phase  and  a  display  phase.  During  the  command  phase  each 
player  privately  determines  combat,  movement  (speed  and 


11 


destination)  and  search  missions  for  all  units  under  his 
control . 

As  this  is  essentially  an  anti-submarine  warfare  game, 
the  only  sensors  employed  are  active  and  passive  sonar  suits. 
Radar,  ESM  and  visual  detection  methods  are  not  pursued. 

At  the  end  of  the  command  phase  all  commands  have  been 
entered  on  the  keyboard.  The  computer  then  executes  combat, 
movement  and  search  missions  for  every  platform  involved. 
Although  the  pro  -am  executes  combat,  movement  and  search 
missions  sequentially,  they  are  considered  and  treated  as 
though  they  occur  simultaneously. 

C .  GAME  EQUIPMENT 

The  game  board  is  a  numbered  hexagonal  grid  pattern 
superimposed  over  open  ocean.  Each  "hex"  represents  a  one 
nautical  mile  area  of  ocean.  Thus,  traversing  four  hexes  is 
the  equivalent  of  moving  four  nautical  miles.  Each  hex 
address  is  composed  of  a  four-digit  number  (i.e.  XXYY) ;  the 
XX  represents  the  column  coordinate  and  the  YY  represents 
the  row  coordinate.  Figure  1  illustrates  the  four  comers 
and  middle  section  of  the  game  board. 

During  the  play  of  Up  Scope,  reference  is  made  to 
"adjacent"  hexes.  Any  hex  that  has  a  common  border  with 
another  hex  is  an  adjacent  hex.  Therefore,  each  hex  except 
those  located  on  the  boundaries  has  six  adjacent  hexes. 
Referring  to  Figure  1,  the  hexes  containing  a  $  are  adjacent 
to  hex  1622. 
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D.  DEFINITION  OF  TERMS 


1 .  Platform  Glass 

The  Ship  Data  Summary,  Appendix  B,  categorizes  all 
surface  ships  and  submarines  by  class.  The  characteristics 
of  any  particular  platform  are  located  in  Appendix  B  accord¬ 
ing  to  the  platform’s  class.  For  instance,  the  Charlie  and 
Papa  class  Soviet  submarines  share  the  same  characteristics, 
and  are  located  in  the  Ship  Data  Summary  under  the  Soviet 
submarine  class  entitled  "Charlie". 

2.  Speed  Command 

During  the  command  phase,  each  platform  is  assigned  a 
speed  command  which  indicates  a  rate  of  speed  at  which  the 
platform  is  considered  to  be  moving  during  the  current  game 
turn.  The  speed  command  determines  the  total  number  of  hexes 
the  platform  must  move  during  the  movement  phase  of  the 
game  turn. 

3-  Search  Command 

During  the  command  phase,  each  eligible  platform  may 
be  assigned  a  search  command  indicating  whether  the  active 
sonar,  passive  sonar  or  both  active  and  passive  sonar  suits 
are  to  be  employed  during  the  search  phase  of  the  game  turn. 

4.  Search  and  Detection 

Detections  by  a  platform's  active  sonar,  passive 
sonar  or  by  both  will  be  recorded  for  an  aircraft  or  surface 
ship  only  against  submarine  targets,  and  for  a  submarine 
against  both  surface  ships  and  submarines.  Detections 


presented  will  include  friendly  as  well  as  adversary  targets. 
It  is  up  to  the  player  to  discriminate  which  target  is  which. 
In  general  a  platform  may  only  attack  a  platform  it  detected 
during  the  prior  game  turn. 

5.  Detection  Value 

When  executing  search  commands  a  searching  platform 
is  assigned  a  detection  value  which  indicates  the  basic 
ability  of  its  detection  equipment  to  detect  and  localize 
previously  undetected  targets. 

6.  Evasion  Value 

When  a  platform  executes  a  search  command  all 
potential  targets  are  assigned  an  evasion  value.  This  value 
indicates  the  platform's  basic  ability  to  avoid  detection 
based  on  both  the  platform’s  inherent  characteristics  and/or 
range,  ocean  and  water  conditions  which  aid  the  platform's 
ability  to  evade  detection. 

E.  GAME  INITIATION 

Appendix  A  lists  several  scenarios,  each  of  which 
constitutes  a  distinct  game.  Players  may  select  any  of  those 
scenarios  or  develop  their  own  scenarios  as  they  desire. 
Initializing  the  game  requires  each  player  to  select  a 
password  which  enables  the  player  to  enter  commands  and 
retrieve  relevant  information  regarding  combat  operations, 
damage  reports  and  search  results  of  platforms  under  his 
command.  The  player  then  selects  his  force  composition 
(i.e.  three  surface  ships  and  two  submarines),  gives  each 


platform  a  name,  identifies  the  platform  class  (Spruance, 

Nimitz,  Krivak,  Charlie,  etc.)  and  designates  the  initial 
position  on  the  game  board.  After  entering  this  initial 
information  the  game  is  ready  to  begin.  The  game  consists  of 
game  turns,  each  of  which  represents  six  minutes  of  elapsed 
time.  Game  turns  are  executed  independently,  the  only  ex¬ 
ception  is  the  fact  that  a  scheduled  combat  mission  can 
succeed  only  if  that  particular  platform  detected  the  target 
on  the  previous  game  turn.  Game  turns  are  then  executed  until 
the  game  ends,  either  by  preset  victory  conditions  being  met, 
the  preselected  number  of  game  turns  having  been  executed  or 
mutual  decision  by  both  Red  and  Blue  players.  Figure  2 
displays  a  block  diagram  of  the  phases  of  Up  Scope. 

The  availability  of  aircraft  is  restricted  to  ship-based 
aircraft  carried  aboard  the  combatants  involved  in  the  scenario. 
Both  fixed  wing  aircraft  and  helicopters  are  available.  The 
Ship  Data  Summary,  Appendix  B,  lists  type  and  number  of  air¬ 
craft  carried  aboard  the  various  classes  of  surface  ships. 

The  Aircraft  Data  Summary,  Appendix  D,  lists  the  detection 
values,  maximum  speed,  weapon  system  mix  and  resupply  ratings 
for  each  type  aircraft.  Some  aircraft  may  carry  either  of 
two  different  weapon  systems.  The  player  must  decide  before 
launching  the  aircraft  whic:->  weapon  system  he  desires  to  employ. 
An  aircraft  weapon  load  cannot  be  changed  after  launch. 

F.  COMMAND  PHASE 

After  reviewing  the  previous  game  turn's  displays  of 

combat  action  results,  damage  suffered  by  friendly  forces, 
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current  platform  locations  and  detections  resulting  from 
the  previous  game  turn  searches,  the  player  privately 
determines  his  current  game  turn  strategy. 

1 .  Combat  Operations 

Combat  operations  are  subdivided  into  two  categories: 
Aircraft  combat  operations  and  surface  ship/submarine  combat 
operations . 

Aircraft  can  only  release  one  weapon  system  per  game 
turn  and  only  at  a  submarine  target.  The  player  selects 
either  weapon  system  number  one  or  weapon  system  number  two. 
The  weapon  systems  carried  are  defined  in  the  Aircraft  Data 
Summary,  Appendix  D.  The  weapon  system  listed  first  is 
weapon  system  number  one  and  the  system  listed  second  is 
weapon  system  number  two.  Therefore,  to  engage  a  target,  the 
player  enters  weapon  system  number  one  or  two  and  the  target's 
hex  address  location.  Aircraft  cannot  be  attacked  during 
any  scenario  under  the  present  rules  of  Up  Scope. 

Surface  ships  and  submarines  may  engage  a  single 
target  with  one  or  more  of  their  weapon  systems  simultan¬ 
eously;  therefore,  the  player  may  enter  more  than  one  combat 
mission  for  each  platform  in  the  manner  described  above. 

Due  to  the  nature  of  the  game,  there  is  no  interference 
between  weapons  in  a  multiple  weapon  system  attack.  The  weapon 
systems  carried  by  each  platform  are  listed  in  the  Ship  Data 
Summary,  Appendix  B.  Weapon  system  numbering  is  in  the 
order  they  are  listed  in  Appendix  B. 
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2.  Movement 


The  player  must  keep  in  mind  that  the  number  of  hexes 
a  platform  traverses  during  each  game  must  be  consistent  with 
the  current  maximum  speed  allowed  and  that  the  speed  must 
equal  the  distance  to  the  destination  hex.  The  player 
enters  projected  speed  and  destination  hex  address  each  game 
turn. 

At  the  start  of  a  scenario,  all  aircraft  are 
considered  aboard  their  respective  surface  ships  and  may  not 
move  independently  until  they  are  launched.  During  each 
command  phase,  a  player  may  launch  any  single  aircraft  from 
each  capable  surface  ship  under  his  control.  After  launch 
the  aircraft  move  according  to  the  established  movement  rules. 
Aircraft  may  not  be  launched  once  it  has  been  determined  the 
parent  ship  is  sunk.  Also,  if  a  parent  ship  departs  the 
board  boundary,  the  aircraft  must  immediately  depart  the 
board  boundary. 

3-  Search 

The  player  may  not  assign  a  search  mission  to  any 
aircraft  that  is  either  not  flying  (still  based  on  the 
parent  ship)  or  is  transiting  to  a  new  destination  hex.  To 
execute  a  search  mission  the  aircraft  must  have  a  speed  of 
zero  for  that  game  turn,  which  signifies  that  a  fixed  wing 
aircraft  is  loitering  in  the  area  or  that  a  helicopter  is  either 
hovering  or  loitering  in  the  area.  Additionally,  aircraft 
may  not  be  assigned  both  active  and  passive  search  missions 
simultaneously. 
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For  surface  ships  and  submarines,  only  platforms 
with  a  one  in  the  column  labeled  "SS"  in  the  Ship  Data  Summary, 
Appendix  B,  may  execute  both  active  and  passive  search 
missions  simultaneously.  The  player,  when  asked  in  the 
game  turn  input  phase,  enters  a  zero  for  no  search  mission, 
a  one  for  an  active  search  mission,  a  two  for  a  passive 
search  mission  and  a  three  for  both  active  and  passive  search 
missions  simultaneously.  If  a  platform  is  not  assigned  a 
detection  value  under  active  and/or  passive  detection  in  the 
Ship  Data  Summary,  it  may  not  be  assigned  a  search  mission 
employing  that  detection  capability.  For  example,  the 
Nimitz  class  aircraft  carrier  possesses  neither  type  of 
detection  value  and  thus  cannot  execute  a  search  command. 
Aircraft  may  not  be  assigned  a  search  mission  if  the  aircraft 
is  assigned  a  move  command  other  than  "none." 

The  assignment  of  search  commands  is  at  the  player’s 
discretion.  A  platform  is  never  required  to  execute  a 
search  mission. 

G.  COMBAT  PHASE 

After  completion  of  the  command  phase  and  players  have 
input  their  combat,  movement  and  search  commands,  the 
program  shifts  into  execution.  The  first  phase  is  the  com¬ 
bat  phase  which  executes  all  combat  orders. 

1 .  Intro duction 

Contemporary  weapon  systems  include  a  large  variety 
of  ship-to-ship  missiles,  sophisticated  wire-guided  and/or 
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homing  torpedoes,  missile  launched  depth  bombs/torpedoes  and 
depth  charges.  The  Ship  Data  Summary,  Appendix  B,  along  with 
the  Weapon  Data  Summary,  Appendix  C,  indicate  all  the  follow¬ 
ing  information. 

a.  Weapon  type 

The  various  weapon  types  with  which  each  platform 
class  is  equipped.  Surface  ships  and  submarines  carry  a 
maximum  of  three  different  weapon  systems. 

b.  Accuracy  Rating 

Each  weapon  type  has  an  accuracy  rating  ranging 
from  six  (best)  to  three  (worst). 

c.  Maximum  Range 

Each  weapon  system  has  a  maximum  effective  range 
expressed  in  terms  of  number  of  hexes  it  will  traverse. 

d.  Weapon  Resupply 

The  number  of  weapon  delivery  units  available 
for  each  weapon  system,  ranging  from  one  to  six.  A  weapon 
delivery  unit  is  composed  of  the  number  of  individual  weapons 
normally  expended  in  a  single  attack  utilizing  that  weapon 
system.  For  example,  if  a  Charlie  class  submarine  would 
normally  expend  all  eight  SSN-7  missiles  in  an  attack,  then 
the  number  of  weapon  delivery  units  would  be  one,  and  it 
would  be  composed  of  eight  SSN-7  missiles. 

e.  Defense  Rating 

The  Defense  rating  of  each  surface  ship /submarine 
class,  range  from  three  (best)  to  zero  (worst).  It  is  a 
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measure  of  how  capable  the  platform  is  in  defending  against 
attacks  and/or  evading  the  attacks. 

f.  Aircraft 

The  number  and  type  of  aircraft  each  surface  ship 
class  carries  and  is  capable  of  employing  in  an  anti-submarine 
role. 

2.  Execution  of  Combat  Missions 

Combat  missions  are  executed  during  the  game  turn 
according  to  the  following  restrictions. 

a.  Resolution 

Each  combat  mission  is  resolved  separately 
against  the  target  platform  using  the  procedure  given  below. 

b.  Attacking  Platform 

Each  weapon  system  type  may  be  employed  only  once 
during-  a  game  turn.  Different  weapon  systems  aboard  an 
attacking  surface  ship/submarine  may  only  be  employed  against 
the  same  target.  (i.e.,  a  platform  may  not  attack  two  or 
more  targets  during  the  same  game  turn). 

c.  Target 

An  attacking  platform  must  have  detected  the 
target  on  the  previous  game  turn.  A  weapon  may  be  employed 
against  a  undetected  target;  however,  a  hit  cannot  be 
obtained. 

d.  Damage 

All  combat  is  considered  to  be  simultaneous. 


All  damage  inflicted  occurs  at  the  end  of  the  game  turn  and 
does  not  affect  current  game  turn  commands. 


e.  Resupply 


Once  all  reloads  of  a  weapon  system  have  been 
expended,  the  weapon  system  cannot  be  employed.  There  is  no 
external  resupply  of  any  weapon  system  during  a  game. 

3.  Resolution  of  Combat  Actions 

Damage  inflicted  due  to  combat  resolution  takes 
effect  at  the  end  of  the  game  turn;  thus,  a  platform  that 
has  been  sunk  or  hit  is  able  to  execute  and  resolve  all 
assigned  combat  missions.  For  each  combat  mission  the 
program  checks  to  insure  the  target  is  within  weapon  range, 
cross  references  the  accuracy  rating  of  the  employed  weapon 
with  the  defense  rating  of  the  target  platform,  draws  a 
random  number  to  simulate  rolling  a  die  and  locates  the 
resulting  random  number  (an  integer  from  one  to  six)  under 
'the  proper  resolution  column  on  the  Combat  Results  Table, 
Figure  3.  If  the  indicated  result  is  not  an  "H"  (hit) ,  then 
the  attack  failed.  If  the  result  is  an  "H" ,  then  the  attack 
was  successful  and  the  durability  value  of  the  target  is 
reduced  by  one. 

4.  Weapon  System  Resupply 

Each  weapon  system  carried  by  a  platform  has  a  weapon 
system  resupply  rating  which  indicates  the  comparative  supply 
and  reload  facilities  available  for  that  weapon  system  on 
that  platform.  Each  time  a  given  platform  executes  a  combat 
mission,  the  corresponding  resupply  rating  for  that  weapon 
system  is  decremented  by  one.  Once  a  resupply  rating  is 
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Defense  Rating  of 
Target  Platform 


Weapon  6 
Accuracy  5 
Rating  4 
3 


0  1 
0 
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1  2 
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2 

2  3 
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1 
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Number  3 

Drawn  4 

5 
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H 
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H 

H  H  - 

H  H  H 


Figure  3.  Combat  Results  Table 
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reduced  to  zero  that  platform  may  not  be  assigned  a  combat 
mission  employing  that  weapon  system. 

5-  Platform  Damage 

The  durability  value  assigned  to  each  surface 
ship/submarine  indicates  the  number  of  hits  required  to 
sink  it.  A  submarine  which  has  a  durability  value  of  two 
would  require  U/o  separate  hits  to  sink  it.  The  initial 
durability  value  for  each  type  of  platform  is  indicated 
below. 


Type  of  Surface 
Ship/Submarine 

Aircraft  carrier 

Cruiser,  Submarine 

Destroyer,  Frigate 


Initial 

Durability  Value 
3 
2 
1 


a.  Damage  Assessment 

For  each  durability  point  of  damage  suffered, 
the  platform's  maximum  speed,  weapon  system  resupply  ratings, 
active  detection  value  and  passive  detection  values  are 
reduced  by  one. 

b.  Repair 

Damage  may  never  be  repaired  during  the  scenario. 

c.  Sunk 

When  a  platform's  durability  point  value  is 


reduced  to  zero,  the  platform  is  considered  sunk. 


Disturbed  Water 


o. 

Whenever  a  combat  mission  results  in  a  weapon 
detonation,  disturbed  water  is  assumed  to  occupy  the  hex  in 
which  the  target  is  residing  and  the  six  adjacent  hexes  as 
well.  Detonations  will  not  occur  when  a  weapon  system  misses 
the  target  and  the  weapon  is  a  torpedo;  however,  depth  charges 
and  depth  bombs  will  detonate  regardless  of  a  hit  or  miss. 

The  effects  of  disturbed  water  are  discussed  later  in  this 
chapter. 

H.  MOVEMENT  PHASE 

After  completion  of  the  combat  phase  during  which  all  the 
combat  orders  are  executed,  the  program  shifts  to  the  movement 
phase  and  all  movement  commands  are  executed. 

The  speed  command  given  a  platform  during  the  command 
phase  determines  the  total  number  of  hexes  it  must  traverse 
during  the  current  game  turn.  It  also  must  match  the  hex 
distance  between  the  current  location  and  future  location. 

Any  platform  may  be  assigned  a  speed  of  zero  for  any  game 
turn.  Aircraft  must  have  a  speed  of  zero  in  order  to  conduct 
a  search  mission.  Also  surface  ships  and  submarines,  in 
general,  have  better  detection  capabilities  at  lower  speeds 
than  at  higher  speeds. 

The  maximum  speed  is  limited  to  the  maximum  for  that 
class  of  platform  as  indicated  in  the  Ship  Data  Summary, 
Appendix  B.  Also,  the  maximum  speed  will  be  permanently 
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reduced  as  a  result  of  damage  sustained  in  combat 
operations . 


I.  SEARCH  AND  DETECTION  PHASE 

After  completion  of  the  movement  phase,  the  program 
shifts  to  the  search  and  detection  phase,  during  which  the 
search  commands  previously  entered  are  executed  for  all 
platforms. 

1 .  Intro duction 

All  platforms  (surface  ships,  submarines  or  aircraft) 
in  this  game  employ  only  detection  capabilities  which  simulate 
the  use  of  both  active  and  passive  advanced  sonar  equipment. 
The  detection  and  evasion  capabilities  for  all  platforms 
are  delineated  in  the  Ship  and  Aircraft  Data  Summaries  in 
appendices  B  and  D  respectively.  This  includes  the 
following: 

a.  Active  Detection  Value 

The  platform's  active  detection  value  (ADV) 
simulates  the  capability  of  its  active  sonar  system(s).  The 
ADV  ranges  from  five  (best)  to  one  (worst). 

b.  Passive  Detection  Value 

The  platform’s  passive  detection  value  (PDV) 
simulates  the  capability  of  its  passive  sonar  system(s).  The 
PDV  ranges  from  five  (best)  to  three  (worst). 

c.  Evasion  Value 

Surface  ship's  and  submarine's  evasion  values 
(EV)  which  simulate  the  platforms  radiated  noise  level.  The 
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higher  the  EV  value,  the  quieter  the  platform  is  considered  to 
be  and  therefore  the  more  difficult  it  is  to  locate  using 
a  passive  search  during  the  game  turn.  The  EV  ranges  from 
five  (best)  to  one  (worst). 

d.  Simultaneous  Active  and  Passive  Search  Missions 
If  a  platform  has  a  one  in  the  "SS"  column  for 

its  class  in  the  Ship  Data  Summary,  Appendix  B,  then  the 
platform  is  capable  of  executing  both  active  and  passive 
search  missions  simultaneously  during  the  game  turn. 

e.  Speed  Degradation 

Normally,  sonar  system  performance  is  degraded 
the  faster  the  surface  ship  or  submarine  is  traveling,  due 
to  increased  water  flow  noise  and  the  own  ship’s  radiated 
noise  level.  Some  more  advanced  sonar  systems  have  solved 
this  degradation  to  some  degree.  In  Up  Scope  if  a  platform 
has  a  one  in  the  "SD"  column  for  its  class  in  the  Ship  Data 
Summary,  Appendix  B,  this  indicates  that  when  a  platform 
executes  a  passive  search  mission  there  is  neither  degrad¬ 
ation  in  capability  nor  reduction  due  to  platform  speed  in 
the  passive  detection  value. 

2.  Search  Mission  Resolution 

Search  missions  assigned  during  the  command  phase  are 
resolved  during  this  search  and  detection  phase.  The  program 
computes  the  appropriate  active  or  passive  detection  value  of 
the  searching  platform,  talcing  into  account  all  the  appropriate 
modifiers,  then  calculates  evasion  values  for  all  other 
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platforms  except  aircraft.  The  program  then  compares  the 
evasion  value  of  each  platform  to  the  final  adjusted  detect- 
tion  value  of  the  searching  platform.  If  the  detection 
value  is  greater  than  or  equal  to  the  evasion  value,  the 
target  platform  is  considered  detected  by  the  searcher.  If 
the  evasion  value  is  greater  than  the  detection  value  then 
no  detection  has  been  made. 

a.  Active/Passive  Detection  Value  Computation 

When  a  platform  executes  a  search  mission,  its 
appropriate  detection  value  (ADV  or  PDV)  is  cumulatively 
modified  by  the  following  criteria: 

(1)  The  platform's  ADV/PDV  is  reduced  by  one  if 
its  speed  is  one  or  two. 

(2)  The  platform's  ADV/PDV  is  reduced  by  two  if 
its  speed  is  three  or  four. 

(3)  The  platform's  ADV/PDV  is  reduced  by  two  if 
the  water  condition  has  been  set  as  "erratic,"  discussed 
later  in  this  chapter. 

(4)  The  platform's  ADV/PDV  is  reduced  by  three 
if  the  platform  occupies  a  disturbed  water  zone,  discussed 
later  in  this  chapter. 

(5)  The  platform's  ADV/PDV  is  reduced  by  one  for 
each  durability  point  of  damage  sustained  by  the  platform. 

(6)  As  already  mentioned,  the  platform’s  ADV/PDV 
is  not  reduced  if  the  platform's  speed  is  zero,  or  if  column 
"SS"  for  the  class  in  the  Ship  Data  Summary,  Appendix  B,  has 
a  one  on  it.  Otherwise,  the  ADV/PDV  is  reduced  as  stated 
above. 
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(7)  A  platform's  ADV/PDV  cannot  be  reduced  below 


zero . 

b.  Active  Evasion  Value  (AEV)  Computation 

For  every  active  search  mission  being  executed, 
the  program  computes  an  AEV  for  every  potential  target  in  the 
following  fashion  (This  computation  does  not  make  use  of  the 
evasion  value  listed  in  the  Ship  Data  Summary,  Appendix  B.)s 

(1)  The  basic  AEV  is  determined  by  computing  the 
hex  distance  between  the  two  platforms,  dividing  the  result 
by  three  and  rounding  up.  The  following  Table  illustrates 
the  computation. 

AEV  Hey  Distance 

1  0-3 

2  4-6 

3  7-9 

(2)  The  basic  AEV  is  increased  by  three  if  the 
platform  occupies  a  disturbed  water  zone. 

c.  Passive  Evasion  Value  (PEV)  Computation 

For  every  passive  search  mission  being  conducted, 
the  program  computes  a  PEV  for  every  potential  target  in  the 
following  fashion: 

(1)  The  platform's  basic  PEV  is  determined  by 
computing  the  hex  distance  between  the  two  platforms,  dividing 
the  result  by  ten  and  then  rounding  up.  The  following 
illustrates  the  computation: 
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PEV 


1  0-10 

2  11-20 

3  21-30 

(2)  The  platform's  PEV  is  increased  by  the  EV 
indicated  for  its  class  in  the  Ship  Data  Summary,  Appendix  B. 

(3)  The  platform's  PEV  is  increased  by  three  if 
it  occupies  a  disturbed  water  zone. 

(4)  The  platform's  PEV  is  decreased  by  two  if 
the  platform  is  assigned  an  active  search  mission  for  the 
current  game  turn. 

(5)  The  platform's  PEV  is  decreased  by  three  if 
the  platform  executed  a  combat  mission  during  the  game  turn. 

(6)  The  platform's  PEV  is  automatically  set  at 
six  if  the  platform  remained  stationary,  was  not  assigned  an 
active  search  mission  and  did  not  execute  a  combat  mission 
during  the  current  game  turn. 

3*  Water  Conditions 

During  any  scenario,  the  water  conditions  are  prescribed 
by  the  scenario  rules  as  either  "Normal"  or  "Erratic"  and  this 
information  is  set  during  the  initializing  and  force  loading 
phase.  It  should  be  recognized  that  if  the  water  conditions 
are  erratic  during  a  scenario,  the  effectiveness  of  both 
active  and  passive  sonar  suits  is  degraded. 

Disturbed  water  zones  are  created  by  the  detonation 
of  weapons.  The  zone  consists  of  the  hex  in  which  the  weapon 
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detonated  and  the  six  adjacent  hexes.  The  disturbed  water 
zones  exist  only  during  the  current  game  turn.  If  occupied 
by  a  searching  platform  the  zone  decreases  detection  values 
and  if  occupied  by  potential  targets,  the  evasion  value  is 
increased  as  just  described. 

J.  VICTORY  DETERMINATION  PHASE 

After  completing  the  search  phase,  the  program  enters 
the  victory  determination  phase.  If  all  of  either  player's 
ship  forces  have  been  sunk,  the  program  exists  after  dis¬ 
playing  the  final  results.  If  either  the  predetermined 
number  of  ships  designated  during  the  initializing  and  force 
loading  phase  have  been  sunk,  or  the  designated  number  of 
game  turns  have  been  completed,  the  program  attempts  to  end 
the  game.  It  queries  the  players  to  see  if  they  desire  to 
continue  or,  in  fact,  desire  to  exit  the  game. 

K.  STATUS  DISPLAY  PHASE 

During  the  status  display  phase  the  player  reenters  the 
game  by  requesting  the  various  status  displays  available 
regarding  damage  inflicted,  damage  suffered,  search  results 
and  individual  platform  status.  Then  the  player  enters  the 
command  input  phase. 
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III.  USER'S  MANUAL 


A.  INTRODUCTION 

The  computerized  version  of  Up  Scope  is  an  easy  game  to 
play  even  without  a  complete  understanding  of  the  rules 
discussed  in  Chapter  II.  All  the  difficult  chores,  such"  as 
computation  of  detections  and  damage,  and  all  bookkeeping 
tasks  are  performed  by  the  computer.  Through  the  interactive 
nature  of  the  game,  a  player  is  led  through  the  various 
stages,  giving  all  the  information  the  player  needs  to  know 
to  make  decisions.  However,  a  general  understanding  of  the 
rules  and  game  procedures  is  required  to  use  the  board  and 
Appendices .  An  understanding  of  the  game  also  allows  the 
players  to  play  more  effectively. 

This  chapter  includes  a  section  on  pregame  requirements 
which  deals  with  the  development  of  scenarios.  It  also 
includes  several  sections  containing  the  instructions  needed 
to  use  the  computer  program.  The  instructions  are  based  on 
excerpts  from  the  practice  game  in  Appendix  E.  Instructions 
for  obtaining  a  copy  of  the  program  deck  are  contained  in 
Appendix  G. 

B.  PREGAME  REQUIREMENTS 

The  pregame  requirements  for  Up  Scope  can  be  as  simple 
or  as  complicated  as  the  players  desire.  However,  as  a 


minimum,  the  following  steps  in  developing  a  scenario  should 
be  taken  to  ensure  a  successful  game. 

1 .  Objective 

Every  game  played  should  have  an  objective.  This 
could  mean  a  detailed  write-up,  with  a  general  scenario  to 
set  the  world's  political  and  economic  situation  and  a 
specific  scenario  setting  the  tactical  situation.  It  could 
also  be  a  simple  agreement  between  the  players  to  "search 
and  destroy."  Whatever  the  purpose,  both  players  should 
agree  to  the  basic  objective  of  the  game  before  they  start. 

The  objective  should  also  include  victory 
determination  criteria.  This  is  extremely  important  because 
it  forces  the  players  to  concentrate  on  setting  and  achieving 
the  objective.  Again  the  criteria  could  be  simple,  such  as 
"fight  until  one  force  is  totally  destroyed",  or  complex. 

A  complex  criteria  might  be  a  force  level  percentage  after  a 
specified  number  of  game  turns.  Appendix  A  presents  several 
scenarios  modified  from  examples  included  in  the  SPI  version 
of  "UP  SCOPE!". 

2.  Game  Environment 

Another  important  aspect  of  the  scenario  is  the 
environment  in  which  the  game  is  to  be  played.  In  the 
computerized  version  of  Up  Scope,  this  includes  the  size  of 
the  ocean  area  and  the  water  conditions. 


a.  Game  Board 


In  the  board  game,  SPI  supplies  the  players  with 
two  33  by  45  hex  boards.  The  boards  can  be  placed  side  by 
side  or  lengthwise  to  increase  the  size  of  the  playing  area. 
The  available  size  in  the  computer  game  is  physically  un¬ 
restricted  as  long  as  the  number  of  hexes  in  the  X  or  Y 
direction  does  not  exceed  99.  When  determining  the  size, 
the  objective  of  the  game  and  the  speed  of  the  ships  must  be 
considered.  For  example,  it  would  take  the  fastest  ship  11 
turns  just  to  cross  the  33  bex  width  of  the  SPI  board.  Unless 
the  players  are  willing  to  spend  a  great  deal  of  time 
maneuvering  or  the  scenario  dictates  otherwise,  the  size  of 
the  area  should  be  held  to  a  minimum. 

Up  Scope  does  not  restrict  the  p.  ayers  from 
moving  their  forces  outside  the  agreed  upon  playing  area.  A 
"gentlemen's  agreement"  between  the  two  players  must  exist 
to  forestall  "out  of  bounds  movement." 
b.  Water  Condition 

The  second  environmental  factor  in  Up  Scope  is 
the  water  condition  which  was  discussed  in  chapter  II. I. 3. 

The  water  condition  can  be  "normal"  or  "erratic." 

3.  Game  Length 

The  game  can  be  terminated  by  any  of  three  methods. 

Two  of  them,  game  turns  and  number  of  ships  destroyed,  are 
scenario  dependent.  The  third  is  total  destruction  of  a 
player's  ship  forces. 


a.  Game  Turns 


The  number  of  game  turns  to  be  played  is 
mutually  agreed  on  by  the  players.  It  can  be  used  in  two 
ways.  The  first  is  actually  determined  by  the  scenario, 
which  might  involve  the  Blue  forces  defending  a  certain  area 
for  a  given  number  of  turns.  The  second  use  is  to  put  an 
upper  limit  on  the  length  of  the  game.  In  either  case  it  is 
preferable  to  use  a  relatively  small  number  because  the 
players  are  given  the  option  of  continuing  the  game  beyond 
the  preselected  number  of  game  turns. 

b.  Disengagement 

Both  players  are  given  the  opportunity  to 
prematurely  end  the  game  by  disengaging  when  a  certain 
number  of  their  ships  have  been  destroyed.  Again,  a 
relatively  small  number  should  be  chosen  because  the  player 
will  be  given  the  option  of  continuing  when  his  disengagement 
criterion  has  been  reached. 

c.  Total  Destruction 

Total  destruction  of  a  player's  forces  is  the 
only  means  of  terminating  the  game  without  the  player's 
consent.  When  this  occurs,  the  program  will  print  the  final 
results,  and  give  the  players  an  opportunity  to  start  a  new 
game. 

4.  Forces 

Perhaps  the  major  pregame  task,  other  than 
determination  of  the  objective,  is  to  decide  the  forces  to 
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be  employed  by  the  Blue  and  Red  players.  The  number  and 
structure  of  the  forces  should  be  consistent  with  the 
objective.  Normally  the  forces  should  be  balanced  between 
the  players  so  that  the  outcome  is  determined  by  tactics 
and  not  by  superior  numbers. 

Ship  Data  Summary,  Appendix  B,  contains  all  the  ship 
classes  in  the  Up  Scope  arsenal  and  all  the  required  infor¬ 
mation  about  each  class.  The  Appendix  must  be  consulted  when 
determining  the  number  of  ships  because  it  contains  the 
number  of  aircraft  carried  by  each  class.  This  is  important 
because  the  current  version  of  the  game  can  only  support 
100  platforms,  including  aircraft,  and  the  game  loads  air¬ 
craft  automatically  for  each  ship  class.  Prior  to 
accessing  the  game,  the  players  should  ensure  that  their 
combined  number  of  aircraft,  surface  ships  and  submarines 
does  not  exceed  100. 

C.  LOADING  GAME  PARAMETERS  AND  PLATFORMS 

The  loading  portion  of  Up  Scope  consists  of  several 
sections;  each  designed  to  ease  the  entry  of  game  inputs. 

1 .  Menu  Selection 

The  first  display  which  the  players  see  when  Up 
Scope  is  accessed  is; 

EXECUTION  BEGINS . . . 

THE  FOLLOWING  OPTIONS  ARE  AVAILABLE  TO  YOU: 

1.  ZERO  ANY  PREVIOUSLY  ESTABLISHED  DATA  BASE. 

2.  EXIT  THE  GAME, 


37 


3.  INITIALIZE  GAME  PARAMETERS  AND  COMMENCE  PLAY. 

ENTER  AN  OPTION. 

>3 

Option  1  reinitializes  any  user  inputs  from  previous 
games,  which  allows  the  players  to  start  a  new  game  without 
exiting  and  restarting  the  program.  Options  2  and  3  are 
self-explanatory.  If  Option  1  is  selected,  the  players  will 
automatically  be  returned  to  menu  selection  at  its 
completion. 

2.  Entry  of  Game  Parameters 
a.  Basic  Parameters 

Once  Option  3  has  been  selected  the  program  will 
begin  to  ask  for  the  basic  game  parameters.  First,  the 
following  warning  concerning  the  total  number  of  platforms 
is  printed  with  a  request  for  the  number  of  game  turns. 


YOU  ARE  NOW  GOING  TO  ENTER  THE  BASIC  GAME  PARAMETERS. 

ONE  WORD  OF  CAUTION.  THE  PRESENT  GAME  CAN  ONLY  HANDLE  A 
TOTAL  OF  100  WEAPON  SYSTEMS.  INCLUDED  IN  THESE  SYSTEMS 
ARE  SURFACE  SHIPS,  SUBMARINES  AND  AIRCRAFT.  THE  NUMBER  OF 
AIRCRAFT  ARE  DETERMINED  BY  THE  SHIP  CLASS  AS  REFLECTED  IN  THE 
DATA  BASE,  AND  WILL  BE  LOADED  AUTOMATICALLY  WHEN  YOU  SELECT 
THE  SHIP  CLASS.  PRIOR  TO  BEGINNING  THE  LOADING  PROCEDURE 
YOU  SHOULD  ENSURE  THAT  THE  TOTAL  NUMBER  OF  EACH  PLAYERS 
WEAPON  SYSTEMS  DOES  NOT  EXCEED  50. 


ENTER  THE  NUMBER  OF  GAME  TURNS  YOU  WANT  TO  PLAY. 

>2 

After  game  turns  have  been  entered,  the  program  will  print 
the  following  request  for  the  water  condition. 

ENTER  THE  WATER  CONDITION  (O-NORMAL,  1 -ERRATIC ) . 

>0 
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b.  Blue/Red  Game  Parameters 

The  following  lines  begin  the  entry  of  the  Blue 

player's  game  parameters  by  requesting  a  Blue  password. 

This  player  has  selected  "BLUPAS". 

THE  FOLLOWING  INPUTS  APPLY  ONLY  TO  THE  BLUE  PLAYER 
THE  FIRST  IS  THE  BLUE  PLAYERS  PASSWORD  WHICH  IS 
A  MAXIMUM  OF  6  CHARACTERS.  THE  PASSWORD  IS  IMPORTANT  BECAUSE 
IT  IS  REQUIRED  PRIOR  TO  THE  INPUT  OF  COMBAT,  MOVE  AND  SEARCH 
COMMANDS.  IF  YOU  FORGET  THE  PASSWORD,  YOU  WILL  HAVE  TO  RETURN 
TO  MENU  SELECTION,  AND  RESTART  THE  GAME. 


SELECT  AND  ENTER  YOUR  PASSWORD 
)  blupas 

YOUR  PASSWORD  WILL  BE  -BLUPAS-  .  IF  YOU  ARE 

READY  TO  CONTINUE  TYPE  Y(SS).  TYPE  N(O)  IF  YOU  WISH  TO 

CHANGE  YOUR  PASSWORD. 


Next  the  program  will  ask  for  the  number  of  Blue 
surface  ships  and  submarines,  and  the  number  of  ships  that  must 
be  destroyed  for  disengagement  to  occur.  The  format  as  seen 
below  echoes  the  inputs  and  gives  the  player  the  opportunity 
to  change  his  choices. 


ENTER  THE  NUMBER  OF  BLUE  SURFACE  SHIPS. 

>2 


ENTER  THE  NUMBER  OF  BLUE  SUBMARINES. 

>1 


ENTER  THE  NUMBER  OF  BLUE  SHIPS  THAT  MUST 
BE  DESTROYED  FOR  PREMATURE  GAME  ENDING. 

>2 


ECHO 
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BLUE  SURFACE  SHIPS  -  2 
BLUE  SUBMARINES  -  1 

NUMBER  OF  BLUE  SHIPS  DESTROYED  TO  END  GAME  -  2 

TYPE  Y(ES )  IF  THESE  VALUES  ARE  CORRECT,  OR  N(O)  IF 
YOU  WANT  TO  REENTER  THEM. 

>  y 

If  the  Blue  player  does  not  elect  to  change  his  inputs, 
the  program  will  advance  to  the  Red  player’s  game  parameters 
which  is  essentially  a  repeat  of  the  above.  In  this 
practice  game,  the  Red  player  has  entered  two  submarines  of 
which  the  destruction  of  one  will  cause  disengagement  (not 
shown) . 

c.  Loading  Platforms 

Up  Scope  leads  each  player  through  the  loading 
procedure  one  ship  at  a  time.  It  will  first  ask  for  the 
player’s  password.  If  the  password  is  entered  correctly, 
the  player  will  input  a  name  (six  characters  or  less)  for 
the  ship,  the  ship's  class  and  its  initial  location.  The 
program  automatically  loads  any  aircraft  carried  by  a  class 
of  ship,  and  asks  the  player  for  aircraft  names.  Inputs  for 
the  practice  game  are  shown  below. 

BLUE  SURFACE  SHIP  NUMBER  1 

ENTER  A  6  CHARACTER  NAME  FOR  THE  SHIP. 

>t  in can 

ENTER  THE  SHIP  CLASS  OF  TINCAN 
^spruance 

ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  TINCAN 
>500 


4  0 


In  the  above  example  the  hex  address  has  been  entered  as 
"500"  instead  of  "0500".  The  program  treats  the  hex  address 
as  a  four  digit  integer  and  pads  leading  blanks  with  zero's. 
In  the  following  example  the  entry  is  "0520”. 


THE  SPRUANCE  CLASS  OF  SHIP  HAS  1  SEA  SPRITE  TYPE  AIRCRAFT. 

ENTER  A  6  CHARACTER  NAME  FOR  AIRCRAFT  1 
y  sprul 

BLUE  SURFACE  SHIP  NUMBER  2 

ENTER  A  6  CHARACTER  NAME  FOR  THE  SHIP. 
y  escort 

ENTER  THE  SHIP  CLASS  OF  ESCORT 
y  knox 

ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  ESCORT 

y  0520 

THE  KNOX  CLASS  OF  SHIP  HAS  1  SEA  SPRITE  TYPE  AIRCRAFT. 

ENTER  A  6  CHARACTER  NAME  FOR  AIRCRAFT  1 
y knoxl 

BLUE  SUBMARINE  NUMBER  1 

ENTER  A  6  DIGIT  CHARACTER  NAME  FOR  THE  SUBMARINE. 

> lapon 

ENTER  THE  SUBMARINE  CLASS  OF  LAPON 
y sturgeon 

ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  LAPON 
>510 

YOU  ARE  NOW  READY  TO  LOAD  THE  RED  WEAPON  SYSTEMS. 

ENTER  THE  RED  PASSWORD. 
y  redpas 

RED  SUBMARINE  NUMBER  1 
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ENTER  A  6  DIGIT  CHARACTER  NAME  FOR  THE  SUBMARINE. 
y  ivan 

ENTER  THE  SUBMARINE  CLASS  OF  IVAN 
>  Charlie 

ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  IVAN 
>1510 

RED  SUBMARINE  NUMBER  2 

ENTER  A  6  DIGIT  CHARACTER  NAME  FOR  THE  SUBMARINE. 
y  boris 

ENTER  THE  SUBMARINE  CLASS  OF  BORIS 
y nc vember 

ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  BORIS 
>1520 

D.  GAME  TURNS 

Once  the  players  have  entered  the  game  parameters,  they 
are  ready  to  enter  the  gaming  phase. 

1 .  Displays 

The  first  step  of  each  game  turn  is  to  review  the 
results  of  the  previous  turn  and  enter  combat,  move  and 
search  instructions.  These  tasks  are  controlled  by  a  group 
of  routines  labeled  STATUS.  After  the  last  Red  submarine 
has  been  loaded,  the  program  will  ask  for  the  Blue  player's 
password  and  print  the  following  menu  of  STATUS  display 
options : 

BLUE  CALL  TO  STATUS  ROUTINES.  ENTER  THE  BLUE  PASSWORD. 

N  bluepas 
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THE  FOLLOWING  DISPLAY  OPTIONS  ARE  AVAILABLE  TO  YOU: 


1.  DETECTIONS  OF  ENEMY  PLATFORMS. 

2.  RESULTS  OF  WEAPONS  FIRED. 

3.  DAMAGE  TO  FRIENDLY  PLATFORMS. 

4.  STATUS  OF  FRIENDLY  PLATFORMS  AND  INPUT  OF  INSTRUCTIONS. 

5.  BEGIN  NEXT  GAME  TURN. 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

If  the  current  game  turn  is  the  first  turn,  the  first  three 
options  will  contain  no  information,  and  should  be  ignored, 
a.  Detection  of  Enemy  Ships 

This  option  will  print  the  detections  of  each 
platform  of  the  calling  side  in  the  following  format: 


SONOR 

SHIP 

DETECTING 

TYPE 

TYPE 

PLATFORM 

USED 

DETECTED 

LOCATION 

TINCAN 

ACTIVE 

SUBMARINE 

512 

ESCORT 

ACTIVE 

SUBMARINE 

512 

ESCORT 

ACTIVE 

SUBMARINE 

1522 

TINCAN 

PASSIVE 

SUBMARINE 

1522 

LAPON 

PASSIVE 

SURFACE 

502 

LAPON 

PASSIVE 

SURFACE 

720 

LAPON 

PASSIVE 

SUBMARINE 

1511 

LAPON 

PASSIVE 

SUBMARINE 

1522 

END  OF  DETECTION  ROUTINE. 

TYPE  Y(ES) 

TO  CONTINUE. 

>y 


b.  Results  of  Weapons  Fired 

Option  2  examines  each  friendly  platform,  and 
gives  the  probability  of  a  hit  for  each  weapon  fired  during 
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the  previous  turn  other  than  torpedoes.  The  result  for 
torpedoes  is  either  "DETONATION"  or  "NO  DETONATION".  The 
following  is  one  example  from  the  practice  games 

SHIP  -  ESCORT  COMBAT  LOCATION  -  1522 

WEAPON  2  TYPE  -  MK  46  PROB(HIT)/EffiTONATION  -  DETONATION 
SHIP  -  LAPON  COMBAT  LOCATION  -  1522 

WEAPON  1  TYPE  -  SUBROC  PR0B( HIT) /DETONATION  -  0.666? 

WEAPON  2  TYPE  -  MK  48  PROB ( HIT ) /DETONATION  -  DETONATION 

END  OF  WEAPON  RESULT  DISPLAY.  TYPE  Y(ES)  TO  CONTINUE. 

>y 

Some  discussion  is  offered  for  some  of  the  displays 
listed  above  in  this  section.  Above,  the  Lapon , a  sturgeon 
class  nuclear  attack  submarine,  released  a  MK  48  torpedo  and  a 
Subroc  against  a  target  located  at  1522.  The  'WEAPON  1  TYPE- 
SUBROC '  statement  illustrates  the  fact  that  some  weapons 
detonate  regardless  of  proximity  of  target,  while  others 
(notably  torpedoes),  only  detonate  when  in  close  proximity, 
or  when  actually  hitting  a  target.  In  either  case,  it  is 
classified  as  a  hit.  Therefore,  when  engaging  with  a  "non¬ 
torpedo"  type  of  weapon,  the  player  is  not  sure  if  the  target 
was  hit  or  destroyed.  All  that  is  displayed  is  the  probability 
of  a  hit.  The  player  should  be  aware  that  torpedo  type 
weapons,  on  the  other  hand,  either  hit  (detonate)  or  miss 
(no  detonation). 

c.  Damage  to  Friendly  Platforms 

This  option  will  give  the  player  the 
number  of  hits  each  ship  has  suffered  if  it  is  not  sunk. 
Otherwise  "SUNK"  is  printed  as  below: 


SHIP 


STATUS/HITS 


TINCAN  0 

ESCORT  SUNK 

LAPON  0 

END  OF  DAMAGE  DISPLAY  ROUTINE.  TYPE  Y(ES)  TO  CONTINUE. 

>y 

d.  Status  of  Friendly  Platforms  and  Input  of 
Instructions 

This  option  displays  individual  platform  status 
and  accepts  and  processes  all  relevant  commands.  The 
program  is  descriptive  and  self-prompting.  There  are 
differences  between  aircraft  and  other  platforms;  therefore, 
there  are  two  slightly  different  routines.  Aircraft  must  be 
1  aunched  from  the  parent  ship,  must  have  a  speed  of  zero  to 
enable  search  missions  and  they  must  only  carry  one  weapon 
system  during  a  flight. 

As  this  option  is  entered,  the  following  is 

displayed: 

YOU  HAVE  SELECTED  INDIVIDUAL  PLATFORM  STATUS  DISPLAY  AND 
ASSOCIATED  COMBAT,  MOVEMENT  AND  SEARCH  COMMAND  INPUTS. 

ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM. 

(1 )  Initial  display  for  non-aircraft  platforms 
The  player  will  see  the  following  and  make 
the  entries  in  the  same  fashion  as  in  this  example: 

^ tine an 
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TINCAN  IS  LOCATED  AT  POSITION  500  SPEED  0 
IT  WAS  NOT  ASSIGNED  A  SEARCH  MISSION 
TINCAN  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  MK  46  20 

2  ASROC  7 

NO  COMBAT  ENTER  N(QNE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 

>n 

TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 


>2 

>502 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>3 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 
DESTINATION  502  SPEED  2 
ACTIVE  AND  PASSIVE  SEARCH  MISSION 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N( 0 )  TO  RETURN  TO  DISPLAY  SELECTION 

ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 

The  lines  starting  with  the  ’  are  the  player's  entries. 
The  player  should  recognize  that  when  an  active  search 
mission  and/or  a  combat  mission  is  assigned,  the  platform’s 

risk  of  being  detected  is  significantly  greater. 
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(2)  Full  display  for  non-aircraft  platforms.  If 
a  platform  had  combat  and  search  missions  scheduled  during 
the  previous  game  turn,  the  results  of  these  missions  are 
reported  just  before  new  input  instructions  are  asked  for. 

The  following  illustrates  the  full  range  of  information 
displays;  i.e.,  Combat  results;  damage  inflicted;  movement 
and  search  missions  undertaken  and  subsequent  orders  for 
the  present  game  turns 


> lapon 

LAPON  IS  LOCATED  AT  POSITION  712  SPEED  2 

THE  LAPON  ATTACK  ON  TARGET  LOCATED  AT  1522 

RELEASE  OF  SUBROC  RESULTED  IN 

A  DETONATION  WITH  PROBABILITY 
OF  A  HIT  OF  4  OUT  OF  6 

RELEASE  OF  MK  48  RESULTED  IN 

A  DETONATION (HIT) 

IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION(S) 

ACTIVE 

TYPE  LOCATION  .  METHO  RANGE 

SUBMARINE  1311  ACTIVE  6 

LAPON  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  SUBROC  25 

2  MK  48  25 

NO  COMBAT  ENTER  N( ONE )  -  OTHERWISE  ENTER 
TARGET  LOCATION 

'WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 

>1311 

>1 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(0) 

>  2 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(0) 

>n 
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TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 


>2 

>714 

ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>1 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

SUBROC  WEAPON  TGT  LOCATION  1311 

MK  48  WEAPON  TGT  LOCATION  1311 

DESTINATION  ?14  SPEED  2 

ACTIVE  SEARCH  MISSION 


ENTER  Y(ES )  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(O)  TO  RETURN  TO  DISPLAY  SELECTION 

>  n 


(3)  Initial  Display  for  Aircraft.  The  following 
illustrates  the  initial  display  for  an  aircraft  prior  to 
launch: 

>  knoxl 

KNOX1  IS  CURRENTLY  NOT  FLYING  -  IT  IS  ASSUMED  YOU 
DESIRE  TO  LAUNCH. 

KNOX1  IS  NOW  BEING  LAUNCHED 


MOVEMENT  NOT  DESIRED  ENTER  N( ONE)  OTHERWISE  ENTER 
SPEED 

DESTINATION  HEX  IN  THIS  FASHION 


>12 

>1720 


48 


1 — 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 


YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 

DESTINATION  1720  SPEED  12 

THERE  IS  NO  SEARCH  MISSION  SCHEDULED 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N ( 0 )  TO  RETURN  TO  DISPLAY  SELECTION 

>y 

ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


(4)  Full  Display  for  Aircraft.  The  following 
illustrates  the  difference  between  the  initial  display 
and  one  with  combat  results. 


^>knoxl 

KNOX  IS  LOCATED  AT  POSITION  520  AT  SPEED  0 
IT  RELEASED  A  MK  46  AT  A  SUBMARINE  TARGET  LOCATED 
AT  POSITION  518 
THE  WEAPON 

DETONATED  (HIT) 

IT  CONDUCTED  AN  ACTIVE  SEARCH  WITH  FOLLOWING  RESULTS 
SUBMARINE  CONTACT  LOCATION  RANGE 

518  2 
KN0X1  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  MK  46  20 


NO  COMBAT  ENTER  N( ONE)  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


MOVEMENT  NOT  DESIRED  ENTER  N( ONE)  OTHERWISE  ENTER 
SPEED 

DESTINATION  HEX  IN  THIS  FASHION 


■  / 


>n 

ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 


>1 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 

SPEED  IS  ZERO  AT  LOCATION  520 

AN  ACTIVE  SEARCH  MISSION  WILL  BE  CONDUCTED 

ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(0)  TO  RETURN  TO  DISPLAY  SELECTION 

>y 

The  player  should  also  be  careful  not  to 
use  a  weapon  which  is  inappropriate  for  the  target;  for 
instance,  cruise  missies  against  a  submarine;  nor  to  employ 
a  weapon  system  beyond  its  tactical  range.  Also  note  that 
all  commands  are  echoed  prior  to  exiting  from  that  section. 
If  the  player  has  made  erroneous  entries,  he  may  enter  Y(ES) 
to  continue  with  another  platform  and  reenter  the  platform's 
name  over  again.  The  only  problem  is  that  the  vagaries  of 
the  programming  will  not  allow  the  player  to  delete  an 
employed  weapon  system.  (All  else  ma,,  be  changed. ) 

It  should  be  noted  that  the  coding  is 
self-explanatory  and  user-friendly.  By  following  the 
computer  prompting,  the  players'  only  errors  should  be 
tactical ! 

(5)  Damage  suffered.  The  following  example 
illustrates  how  platform  self-damage  is  displayed  just  prior 
to  accepting  orders: 
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^boris 


BORIS  IS  LOCATED  AT  POSITION  1522  SPEED  2 


NOTE 

DUE  TO  PREVIOUS  AND/OR  CURRENT  DAMAGE  SUFFERED,  MAX  SPEED 
IS  NOW  0 

THE  SHIP  HAS  BEEN  HIT  3  TIMES 


IT  HAS  BEEN  HIT  BY  A  TORPEDO 

IT  HAS  BEEN  HIT  BY  A  NON -TORPEDO  WEAPON 

IT  HAS  BEEN  HIT  BY  A  TORPEDO 

THE  BORIS  ATTACK  ON  TARGET  LOCATED  AT  720 

RELEASE  OF  21"  RESULTED  IN 

A  DETONATION (HIT ) 

IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION(S) 
ACTIVE 

TYPE  LOCATION  METHOD  RANGE 
THERE  'WERE  NO  DETECTIONS 


SINCE  THE  BORIS  HAS  BEEN  SUNK,  NO  COMMAND  INPUTS  CAN  BE 
ACCEPTED 

ENTER  ( Y)ES  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  (N)0  TO  RETURN  TO  DISPLAY  SELECTION 

When  N(0)  is  entered,  control  is  returned 
to  the  selection  of  display  options. 

E .  GAME  END 

As  previously  discussed,  there  are  three  possible  ways 
to  end  the  game. 

1 .  Game  Turns 

When  the  number  of  game  turns  exceeds  the  number 
input  by  the  players,  the  following  message  is  printed:- 
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YOU  HAVE  JUST  COMPLETED  GAME  TURN  2. 

TYPE  Y(ES)  IF  YOU  WANT  TO  CONTINUE  THE  GAME,  OR  N(O) 

TO  ALLOW  THE  GAME  TO  END. 

>  n 

If  "NO"  is  entered,  the  game  results  are  displayed. 

2.  Disengagement 

When  the  number  of  destroyed  ships  for  one  player 
equals  or  exceeds  the  number  he  input  for  disengagement,  the 
following  statement  is  printed: 


THE  NUMBER  OF  BLUE  SHIPS  DESTROYED  IS  EQUAL  TO  OR 
GREATER  THAN  THE  NUMBER  INPUT  FOR  GAME  END.  IF  YOU  WANT 
TO  CONTINUE  THE  GAME,  TYPE  Y(ES).  TYPE  N(0)  TO  END  THE  GAME. 
>Y 


3.  Total  Destruction 

The  total  destruction  of  one  player's  ship  forces 
will  automatically  end  the  game  by  displaying  the  final  game 
results . 


F.  FINAL  RESULTS 

Game  end  results  in  the  following  information  being 
printed: 


BLUE  RESULTS: 
SHIP 
TINCAN 
ESCORT 
LAPON 

TYPE  Y(ES)  TO 
>  yes 


STATUS/HITS 

0 

SUNK 

0 

SEE  RED  RESULTS. 


FINAL 

LOCATION 

1102 

720 

714 
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RED  RESULTS: 


SHIP 

STATUS/HITS 

FINAL 

LOCATION 

IVAN 

SUNK 

1311 

BORIS 

SUNK 

1522 

The  players  are  also  given  the  option  of  starting  a  new 
game  : 

TYPE  Y(ES)  TO  RETURN  TO  MENU  SELECTION  AND  START  A  NEW 
GAME.  TYPE  N( 0)  TO  EXIT  THE  GAME. 
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IV.  PROGRAM  DOCUMENTATION 


A.  INTRODUCTION 

This  chapter  contains  documentation  for  the  approximately 
2350  lines  of  FORTRAN  source  code  which  comprise  the  computer 
version  of  Up  Scope.  It  is  intended  primarily  for  the  reader 
who  is  interested  in  modifying  the  program.  In  using  this 
chapter,  the  reader  should  refer  to  the  source  listing  in 
Appendix  F. 

The  program  can  be  logically  divided  into  the  following 
parts  s 

1.  Dimension,  Common  and  Data  Statements 

2.  Game  Parameters  and  Weapon  Systems  Initialization 

3.  Game  Control 

4.  Display  Subroutines 

5.  Combat  Execution  Subroutines 

6.  Utility  Subroutines 

Each  of  the  six  parts  will  be  described  individually  in  the 
following  pages.  However,  prior  to  a  description  of  the 
FORTRAN  source  program,  one  should  obtain  an  understanding 
of  the  major  arrays  and  variables  used  in  the  program. 

B.  DESCRIPTION  OF  THE  MAJOR  ARRAYS 

This  section  will  only  discuss  the  major  arrays  such  as 
those  used  in  the  common  statement  and  dimensioned  in  the 
main  program  for  data  arrays.  All  arrays  are  integer. 
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L .  Arrays  in  common  storage 
a.  PLATFM(100,37) 

PLATFM  is  the  largest  and  most  important  of  all 
the  arrays  because  it  contains  the  basic  information  about 
each  selected  platform.  Each  platform  has  3?  columns  associ¬ 
ated  with  it.  The  size  of  the  row  dimension  of  PLATFM 
limits  the  game  to  100  weapon  systems.  Aircraft,  surface 
ships  and  submarines  are  included  in  the  array.  Due  to  the 
difference  of  their  attributes,  the  columns  of  PLATFM 
associated  with  aircraft  do  not  always  serve  the  same  purpose 
as  those  associated  with  ships,  and  only  the  first  24  columns 
of  rows  dealing  with  aircraft  contain  information.  Any 
differences  are  discussed  below. 

(1)  PLATFM ( xxx , 1 ) ■  This  column  is  used  as  a 
combat  assignment  flag.  If  the  platform  is  an  aircraft,  a 
zero  indicates  no  combat  is  scheduled,  a  one  indicates 
combat  is  scheduled  and  weapon  one  is  to  be  used  and  a  two 
indicates  weapon  two  is  to  be  used.  If  the  platform  is  a 
ship,  a  zero  indicates  no  combat  and  a  one  indicates  combat. 
This  difference  is  due  to  the  fact  that  aircraft  can  only 
fire  one  weapon  per  game  turn  while  ships  can  fire  up  to 
three. 

(2)  PLATFM( xxx. 2) .  This  column  holds  the 
combat  location  which  is  the  hex  address  to  which  the  weapon/ 
weapons  will  be  delivered. 
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(3)  PLATFM( xxx, 3) .  This  is  the  hex  address  of 
the  current  location  of  the  platform. 

(4)  PLATFM( xxx, 4) .  Current  speed  of  the 

platform. 

(5)  PLATFM( xxx , 5) .  This  is  the  hex  address  of 
the  future  location  of  the  platform. 

(6)  PLATFM( xxx , 6) .  This  column  is  used  as  a 
disturbed  water  flag.  A  zero  means  the  platform  is  not 
within  one  hex  of  a  disturbed  water  zone  and  a  three  means 
it  is.  A  three  is  used  because  the  routine  that  controls 
detections  adds  the  contents  of  this  column  to  the  ship's 
evasion  value. 

(7)  PLATFM( xxx, 7) .  Column  seven  controls  the 
search  mission  assigned  to  the  platform.  A  zero  indicates 
no  search  mission  is  scheduled,  a  one  means  the  active  sonor 
is  to  be  used,  a  two  means  the  passive  sonor  is  to  be  used 
and  a  three  means  both  are  to  be  used. 

(8)  PLATF!Vl(xxx,8) .  This  column  indicates  the 
platform  type.  A  zero  means  the  platform  is  an  aircraft, 
a  one  means  a  surface  ship  and  a  two  means  a  submarine. 

(9)  PLATFM(xxx,9) .  This  column  is  not  used  at 
present  and  is  reserved  for  possible  improvements  to  Up  Scope 

(10)  PLATFM( xxx . 10 ) .  This  column  is  not  used  at 
present  and  is  reserved  for  possible  improvements  to  Up  Scope 

(11)  PLATFM( xxx . 11 ) .  For  aircraft,  this  column 
contains  a  zero  or  a  one.  A  zero  means  the  aircraft  is  not 
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flying  and  a  one  means  it  is  flying.  For  ships,  the  column 
contains  the  number  of  durability  points  lost. 

(12)  PLATFM(xxx,12) .  Max  speed  of  the 


platform. 

(13)  PLATFM ( xxx ,13) . 
the  platform. 

(14)  PLATFM (xxx. 14) . 
of  the  platform. 

(15)  PLATFM ( xxx ,15) . 


Active  detection  value  of 


Passive  detection  value 


The  number  of  type  one 


weapons  carried  by  the  platform. 

(16)  PLATFM ( xxx ■ 16) .  The  number  of  type  two 
weapons  carried  by  the  platform. 

(17)  PLATFM (xxx, 17) .  For  aircraft,  this  is  the 
row  index  of  the  type  one  weapon.  For  ships,  this  column 
holds  the  number  of  type  three  weapons  carried  by  the  platform. 

(18)  PLATFM( xxx , 18) .  For  aircraft,  this  is  the 
row  index  of  the  type  two  weapon.  For  ships,  it  holds  the 
evasion  value. 


(19)  PLATFM (xxx, 19) .  For  aircraft,  this  column 
is  not  used.  For  ships,  it  is  the  defense  value  of  the  ship. 

(20)  PLATFM ( xxx, 20) .  For  aircraft,  this  value 

is  set  at  one.  For  ships,  it  contains  the  durability  points 
of  the  ship.  It  will  become  zero  when  the  ship  is  sunk. 

(21)  PLATFM ( xxx, 21 ) .  For  aircraft,  this  column 
holds  the  row  index  number  of  the  ship  to  which  it  belongs. 
For  ships,  it  holds  the  index  of  the  type  one  weapon. 
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(22)  PLATFM(xxx, 22) .  For  aircraft,  this  is  the 
row  index  for  the  type  of  aircraft.  For  ships,  it  holds  the 
row  index  of  the  type  two  weapon. 

(23)  PLATFM(xxx. 23) .  For  aircraft,  this  column 
holds  a  number  associated  with  the  probability  that  weapon 
one  hit  its  target.  A  zero  means  the  weapon  was  not  fired 
during  the  last  game  turn,  a  one  through  six  means  the  number _ 
of  chances  out  of  six  the  weapon  had  of  hitting  its  target, 

a  seven  means  the  weapon  fired  was  a  torpedo  and  there  was  a 
detonation  and  an  eight  means  the  weapon  was  a  torpedo  and 
there  was  no  detonation.  For  ships,  it  holds  the  row  index  of 
the  type  three  weapon. 

(24)  PLATFM( xxx . 24) .  For  aircraft,  this  column 
holds  the  same  information  as  PLATFM(xxx, 23)  except  for 
weapon  two.  For  ships,  it  is  a  flag  that  indicates  if 
simultaneous  active  and  passive  search  missions  are 
possible.  A  zero  means  simultaneous  missions  are  not  possible 
and  a  one  means  they  are . 

(25)  PLATFM( xxx. 25) .  This  is  a  flag  that  contains 
a  zero  if  the  ship's  passive  sonor  system  suffers  no  degrad¬ 
ation  from  speed  and  a  one  if  degradation  is  caused  by 
speed. 

(26)  PLATFM( xxx . 26 ) .  The  row  index  of  the  type 
one  aircraft  carried  by  the  ship. 

(27)  PLATFM( xxx. 27) .  The  row  index  of  the  type 
two  aircraft  carried  by  the  ship. 
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(28)  PLATFM(xxx, 28) .  The  number  of  type  one 
aircraft  carried  by  the  ship. 

(29)  PLATFMC xxx, 29) .  The  number  of  type  two 
aircraft  carried  by  the  ship. 

(30)  PLATFM (xxx, 30) .  The  class  row  index  of  the 
ship.  These  numbers  link  the  platform  with  the  information 
found  in  Appendix  B. 

(31)  PLATFMCxxx. 31 ) .  The  PLATFM  row  index 
number  of  the  first  type  one  aircraft  carried  by  the  ship. 

(32)  PLATFM ( xxx, 32) .  The  PLATFM  row  index 
number  of  the  first  type  two  aircraft  carried  by  the  ship. 

(33)  PLATFM(xxx, 33) .  The  PLATFM  row  index 
number  of  the  last  type  one  aircraft  carried  by  the  ship. 

(34)  PLATFM ( xxx , 34) .  The  PLATFM  row  index 
number  of  the  last  type  two  aircraft  carried  by  the  ship. 

(35)  PLATFMCxxx, 35) .  This  column  holds  a 
number  associated  with  the  probability  that  weapon  one  hit 
its  target.  A  zero  means  the  weapon  was  not  fired  during 
the  last  game  turn,  a  one  through  six  means  the  number  of 
chances  out  of  six  the  weapon  had  of  hitting  its  target,  a 
seven  means  the  weapon  fired  was  a  torpedo  and  there  was  a 
detonation  and  an  eight  means  the  weapon  was  a  torpedo  and 
there  was  no  detonation. 

(36)  PLATFM( xxx , 36) .  The  same  information  as 
PLATFM(xxx, 35)  except  for  weapon  two. 
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(37)  PLATFM( xxx. 37) .  The  same  information  as 
PLATFM(xxx, 35)  except  for  weapon  three. 

b.  DETECT(100 ,3) 

The  DETECT  array  is  used  to  store  the  detections 
that  occur  during  a  game  turn.  After  each  turn, the  first 
column  is  initialized  to  minus  one.  If  a  game  turn  results 
in  more  than  100  detections  a  message  is  printed,  but  the 
game  continues.  All  detections  beyond  100  are  lost. 

(1)  DETECT(xxx.l) .  Column  one  contains  the 
PLATFM  row  index  of  the  platform  that  is  detected. 

(2)  DETECT ( xxx. 2) .  Column  two  contains  the 
PLATFM  row  index  of  the  platform  that  is  detected. 

(3)  DETECT (xxx, 3) .  Column  three  contains  a 
flag  indicating  the  type  of  sensor  used.  A  zero  means 
passive  and  a  one  means  active. 

(4)  DETECT (xxx. 4) .  Column  four  contains  the 
distance  in  hexes  between  the  detected  and  the  detecting 
platforms . 

c.  WEP (29»3) 

The  WEP  array  contains  the  basic  information 
about  the  29  types  of  weapons  portrayed  by  the  game.  The 
same  information  is  contained  in  the  data  array  WEPDA.  The 
two  are  set  equal  so  WEP  can  be  commoned.  The  information 
contained  in  the  array  can  be  found  in  the  Weapon  Data 
Summary,  Appendix  C. 
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(1)  WEP ( xx . 1 ) .  This  holds  the  accuracy  rating 
of  the  weapon. 

(2)  WEP ( xx , 2 ) .  This  is  the  range  of  the  weapon 

in  hexes. 

(3)  WEP ( xx. 3) .  This  is  the  index  for  the  type 
of  weapon.  A  one  indicates  a  missile,  a  two  a  missile/depth 
bomb,  a  three  a  torpedo  and  a  four  indicates  a  depth  charge. 

d.  HIT( 100 , 3) 

The  HIT  array  is  used  to  maintain  the  results  of 
combat  for  a  game  turn.  At  the  end  of  each  turn  the  results 
are  entered  into  PLATFM,  and  the  first  column  of  the  HIT 
array  is  initialized  to  minus  one. 

(1)  HIT ( xxx. 1 ) .  The  PLATFM  row  index  of  the 
platform  that  fired  the  weapon. 

(2)  HIT ( xxx. 2) .  The  row  index  of  the  type  of 
weapon  fired. 

(3)  HITCxxx , 3) ■  The  PLATFM  row  index  of  the 
platform  hit  by  the  weapon. 

e.  SUNK (100) 

SUNK  is  the  vector  of  PLATFM  row  index  numbers 
of  ships  that  have  been  sunk.  This  is  a  cumulative  list  in 
order  of  the  occurrence  of  each  sinking. 

f.  WATER(IOO) 

WATER  is  a  vector  of  the  hex  addresses  that 
contain  disturbed  water  as  a  result  of  a  weapon  detonating. 
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It  is  initialized  to  negative  one  prior  to  the  combat 
execution  phase. 


g.  NAME(100 , 6) 

NAME  is  an  alpha  array  that  contains  the 
user-supplied  names  of  platforms.  Each  row  is  associated 
with  the  same  numbered  row  in  PLATFM.  Its  format  is  6A1 . 


h.  BUFFER( 100,7) 

BUFFER  is  the  array  used  to  hold  the  combat, move 
and  search  commands  until  the  next  game  turn  is  started. 

This  allows  the  user  to  recall  each  display  option  as  many 
times  as  desired  without  disturbing  the  information  con¬ 
tained  in  PLATFM.  This  information  is  input  to  PLATFM 
when  the  combat  driver  CONTRL  is  called. 

(1)  BUFFER ( xxx , 1 ) .  This  column  holds  the 
combat  assignment  flag  associated  with  PLATFM(xxx , 1 ) 

(2)  BUFFER (xxx, 2) .  This  is  the  combat  location 


desired  for  the  next  game  turn. 

(3)  BUFFER(xxx, 3) .  This  is  the  speed  desired 
for  the  next  game  turn. 

(4)  BUFFER (xxx. 4) .  This  is  the  desired 
location  for  the  next  game  turn. 

(5)  BUFFER (xxx. 5) •  This  column  assigns  the 
type  of  search  mission  for  the  next  game  turn. 

(6)  BUFFER(xxx. 6/7/8) .  These  columns  are  used 
by  non-aircraft  to  assign  which  weapons  will  be  employed. 
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i.  BLUPAS ( 6 ) 

BLUPAS  is  the  array  that  holds  the  blue  player's 
alpha  password.  It  is  used  before  the  initial  loading  of 
weapon  systems  and  before  each  game  turn  to  ensure  the 
players  cannot  enter  instructions  to  the  other's  platforms. 

j.  REDPAS ( 6 ) 

REDPAS  contains  the  red  player's  password  and 
is  used  in  the  same  way  as  BLUPAS. 

3.  Data  Arrays 

The  data  arrays  (most  of  those  used  in  the  dimension 
statement)  contain  the  basic  information  about  the  weapon 
systems  portrayed  by  the  game.  Some  of  them  are  equival- 
enced  to  ease  their  entry  and  understanding.  This  will  be 
discussed  in  the  section  dealing  with  the  initial  portion 
of  the  main  program. 

a.  SHIPDA( 130,18) 

SHIPDA  is  the  data  array  that  holds  the  basic 
information  about  the  ships  portrayed  by  Up  Scope.  This 
information  can  be  found  in  Appendix  B.  This  information  is 
transferred  to  PLATFM  during  the  initial  loading  of  the  user 
selected  weapon  systems.  Each  column  in  SHIPDA  is 
equivalenced  to  one  of  the  arrays  SI  through  S18,  and  the 
data  statements  are  actually  in  terms  of  the  S  arrays. 

(1)  SHIPDA(xxx . 1 ) /SI ( xxx) .  Max  speed  of  the 

ship. 
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(2)  SHIPDA ( xxx . 2 ) /S 2 ( xxx ) .  Active  detection 


value  of  the  ship. 


(3)  SHIPDA (xxx. 3)/S3(xxx) .  Passive  detection 
value  of  the  ship. 

(4)  SHIPDA(xxx.4)/S4(xxx) .  A  flag  that  is  zero 
if  active  and  passive  sonor  cannot  be  used  simultaneously 


and  a  one  if  they  can. 


[  xxx ) .  A  flag  that  is  zero 


if  the  passive  sonor  system  capability  is  degraded  by  the 
speed  of  the  platform  and  a  one  if  no  degradation  occurs. 

(6)  SHIPDA ( xxx. 6 )/S 6 (xxx) .  Evasion  value  of 


the  ship. 


the  ship. 


Defense  value  of 


(8)  SHIPDA(xxx.8)/S8(xxx) .  The  index  of  the 


type  one  weapon  carried  by  the  ship. 


one  weapons  carried  by  the  ship. 


The  number  of  type 


(10)  SHIPDA (xxx. 10)/S10(xxx) .  The  index  of  the 
type  two  weapon  carried  by  the  ship. 

(11)  SHIPDA(xxx.ll )/Sll(xxx) .  The  number  of 
type  two  weapons  carried  by  the  ship. 

(12)  SHIPDA(xxx,12)/S12(xxx) .  The  index  of  the 


type  three  weapon  carried  by  the  ship. 
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(13)  SHIPDA(xxx.l3)/S13(xxx) .  The  number  of 
type  three  weapons  carried  by  the  ship. 

(14)  SHIPDA(xxx.l4)/Sl4(xxx) .  The  index  of  the 
type  one  aircraft  carried  by  the  ship. 

(15)  SHIPDA ( xxx .15) /SI  5 ( xxx ) .  The  number  of 
type  one  aircraft  carried  by  the  ship. 

(16)  SHIPDA (xxx. 16) /SI 6 (xxx) .  The  index  of  the 
type  two  aircraft  carried  by  the  ship. 

(17)  SHIPDA (xxx, 17) /SI 7 (xxx) .  The  number  of 
the  type  two  aircraft  carried  by  the  ship. 

(18)  SHIPDA(xxx,18)/Sl8(xxx) .  Durability  value 
of  the  ship. 

b.  NAMESH ( 1 30 , 8 ) 

NAMESH  is  an  alpha  array  that  contains  the  class 
names  of  the  ships  found  in  SHIPDA  arid  Appendix  B.  Each 
column  of  NAMESH  is  equivalenced  to  one  of  the  arrays  NS1 
through  NS8,  and  the  data  statements  are  actually  in  terms 
of  the  NS  arrays.  The  format  of  NAMESH  is  8A2. 

c.  AC DATA (16, 7) 

ACDATA  is  the  data  array  that  contains  the 
aircraft  information.  The  information  it  contains  can  be 
found  in  Appendix  D. 

(1)  ACDATA ( xx ■ 1 ) .  Max  speed  of  the  aircraft. 

(2)  ACDATA ( xx. 2) .  Active  detection  value  of 
the  aircraft. 
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(3)  ACDATA( xx. 3) .  Passive  detection  value  of 
the  aircraft. 

(4)  AC DATA ( xx ,4) .  The  index  of  the  type  one 
weapon  carried  by  the  aircraft. 

(5)  AC DATA ( xx. 5) ■  The  number  of  type  one 
weapons  carried  by  the  aircraft. 

(6)  ACDATA(xx, 6) .  The  index  of  the  type  two 
weapon  carried  by  the  aircraft. 

(7)  ACDATA(xx,7) .  The  number  of  the  type  two 
weapons  carried  by  the  aircraft. 

d.  NAMEAC(l6,6) 

NAMEAC  is  an  alpha  array  that  contains  the  names 
of  the  16  aircraft.  The  format  of  NAMEAC  is  6A2. 

e.  WEPDA ( 29 i 3) 

WEPDA  is  the  data  array  that  contains  the  weapon 
data.  It  is  equivalent  to  WEP  which  is  discussed  in  the 
section  dealing  with  the  arrays  in  the  common  statement. 

f.  NAMEWP (29.6) 

NAMEWP  is  an  alpha  array  that  contains  the  names 
of  the  weapons.  Its  format  is  6A2. 

g.  INPUT (70) 

This  array  is  used  to  read  in  strings  of  alpha 
characters.  All  inputs  are  read  in  this  way  and  then 
converted  to  the  mode  and  format  of  the  information  actually 
required. 
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h.  ALPHA ( 2 ) 

ALPHA(l)  contains  a  'Y'  and  ALPHA(2)  contains  an 
*N’.  This  array  is  used  to  compare  user  answers  to  questions 
that  require  a  yes  or  no  answer. 

i.  CHECK(6) 

CHECK  is  used  to  compare  user  inputs  to  the  Red 
or  Blue  passwords. 

j.  CLASNA( 8) 

CLASNA  is  used  to  read  in  the  ship  class  names 
entered  by  the  user. 

C.  DESCRIPTION  OF  MAJOR  VARIABLES 

The  variables  described  in  this  section  include  only 
the  major  variables  like  those  found  in  the  COMMON  statement. 
Other  variables  will  be  discussed  as  they  appear  in  the 
program  description.  Normally  single  letter  variables  are 
used  as  local  and  temporary  variables. 

1.  I PLAT 

This  variable  is  the  total  number  of  platforms 
loaded  in  the  PLATFM  array.  It  is  used  for  loops  that  act 
on  aircraft,  surface  ships  and  submarines. 

2.  IAIR 

IAIR  is  the  total  number  of  aircraft  loaded  in  the 
PLATFM  array. 

3.  ISURF 

ISURF  is  the  total  number  of  surface  ships  loaded  in 
the  PLATFM  array. 


67 


4.  ISUB 

ISUB  is  the  total  number  of  submarines  loaded  in  the 
PLATFM  array. 

5.  ADV 

ADV  is  the  variable  used  to  represent  a  ship’s 
active  detection  value.  It  is  used  between  all  the 
detection  subroutines. 

6.  PDV 

PDV  is  the  same  as  ADV  for  passive  detection  value. 

7.  AEV 

AEV  is  similar  to  ADV  and  PDV  except  it  represents  a 
ship's  active  evasion  value. 

8.  PEV 

PEV  is  used  the  same  way  as  AEV  except  for  passive 
evasion  values. 

9.  ERATIC 

This  variable  is  a  flag  that  indicates  the  water 
condition  of  the  playing  area. 

10.  BLU AIR/RE PAIR 

These  variables  hold  the  number  of  Blue/Red 
aircraft  entered  by  the  players. 

11.  BLUSUR/REDSUR 

These  variables  hold  the  number  of  Blue/Red  surface 
ships  entered  by  the  players. 

12.  BLUSUB/REDSUB 

The  number  of  Blue/Red  submarines  entered. 
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13-  P3AIR1/PBAIR2 

All  the  variables  of  this  form  are  pointers  to  the 
PLATFM  array,  and  they  are  actually  acronyms  for  what  they 
represent.  P(latform)B(lue)AIRl  is  the  row  index  number  of 
the  first  Blue  aircraft  entered  in  PLATFM.  P(latform)B(lue) 
AIR2  is  the  row  index  number  of  the  last  Blue  aircraft 
entered  in  PLATFM.  These  variables  are  used  in  the  initial 
loading  of  the  PLATFM  array  and  in  the  display  subroutines. 
Figure  4  shows  how  the  pointers  are  aligned,  and  how  the 
data  in  PLATFM  is  arranged. 

14.  PRAIR1 /PRAIR2 

These  variables  are  pointers  to  the  first  and  last 
Red  aircraft  in  PLATFM. 

15.  PBSUR1 /PBSUR2 

Pointers  to  the  first  and  last  Blue  surface  ships 
in  PLATFM. 

16.  PRSUR1  /PRSUR2 

Pointers  to  the  first  and  last  Red  surface  ships  in 

PLATFM. 

17.  PBSUB1/PBSU32 

Pointers  to  the  first  and  last  Blue  submarines  in 

PLATFM. 

18.  PRSUB1/PRSUB2 

Pointers  to  the  first  and  last  Red  submarines  in 

PLATFM. 
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Row  Index  Number 


PBAIR1 


Rows  for  Blue  Aircraft 


PBAIR2 

PRAIR1 


Rows  for  Red  Aircraft 


PRAIR2 
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PBSUR1 

PBSUR2 
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PRSUR2 

PBSUB1 

PBSUB2 
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PRSUB2 
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Rows  for  Blue  Surface  Ships 


Rows  for  Red  Surface  Ships 


Rows  for  Blue  Submarines 


Rows  for  Red  Submarines 


Figure  4.  Format  of  the  PLATFM  Array- 
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19-  TURN 

TURN  stores  the  total  number  of  game  turns  the 
players  choose  to  play. 

D.  DIMENSION,  COMMON  AND  DATA  STATEMENTS 

The  first  194  statements  of  the  program  are  dedicated  to 
dimensioning  the  major  arrays  and  setting  up  the  data  base 
required  for  Up  Scope. 

1 •  Line  1 

All  variables  and  arrays  used  in  the  program  are 
integer  except  fors  R  which  is  used  in  the  shot  result 
subroutine  to  express  the  probability  of  a  weapon  hitting  a 
target,  RN  which  is  used  in  FIRE  to  generate  a  random  number 
and  Y  which  is  used  in  AEVSUB  and  PEVSUB  in  calculating 
evasion  values. 

2.  Lines  2  through  17 

The  DIMENSION  statement  includes  all  the  arrays 
discussed  in  section  B.2.  of  this  chapter.  The  majority  of 
these  arrays  are  used  to  ease  the  entry  of  data  and  are 
equivalenced  to  the  arrays  actually  used  by  the  program. 

The  use  of  so  many  arrays  eased  the  data  entry  because  each 
array  of  the  Sx  type  contained  only  one  type  of  ship 
information.  For  example,  S6  contains  all  the  evasion 
values  for  the  130  ship  types  in  Up  Scope.  If  the  evasion 
value  of  the  America  was  wrong,  the  error  would  be  in  the 
second  element  of  S6,  It  is  in  the  second  element  because 
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the  America  is  the  second  ship  type  in  the  data  contained 
in  Appendix  B. 

3.  Lines  18  through  25 

All  the  arrays  and  variables  in  the  COMMON  statement 
were  discussed  earlier  in  this  chapter. 

4.  Lines  2 6  through  191 

These  lines  are  the  actual  data  statements  used  to 
load  the  basic  platform  and  weapon  information.  Each  one  of 
these  arrays  was  discussed  in  section  B.2.  of  this  chapter. 
As  previously  mentioned,  each  Sx  array  is  one  column  of  the 
SHIPDA  array,  and  each  NSx  array  is  one  column  of  the  NAMESH 
array. 

5.  Line  192 

MAXPLT  is  used  as  the  maximum  number  of  platforms 
that  can  be  played  by  the  game.  This  limit  is  imposed  by 
the  size  of  the  PLATFM  and  NAME  arrays. 

6.  Line  193 

ALPHA  is  an  array  used  to  check  the  player's  answers 
to  "yes"  and  "no"  type  questions. 

E.  GAME  PARAMETERS  AND  WEAPON  SYSTEMS  INITIATION 

Lines  194  through  742  are  used  to  initialize  all  the 
arrays  and  variables,  load  the  basic  game  parameters  and  to 
load  the  player-selected  platforms. 

1 .  Lines  194  through  201 

This  is  a  loop  that  sets  the  array  WEP  equal  to  the 
data  array  WEPDA  so  WEP  can  be  placed  in  the  COMMON 


statement. 
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2.  Lines  20  2  through  211 

These  lines  initialize  the  game  parameter  variables 

to  zero. 

3.  Lines  212  through  231 

These  lines  contain  a  nested  loop  that  sets  PLATFM, 
WATER,  DETECT,  HIT,  SUNK  and  BUFFER  to  their  initial  values. 

4.  Lines  222  through  245 

These  lines  print  the  format  statement  that  gives 
the  menu  of  choices  and  reads  the  player’s  choice.  The 
alpha  array  INPUT  is  used  to  read  the  number  of  the  player’s 
choice  as  a  character  string,  and  the  subroutine  NONVRT 
discards  any  leading  blanks  and  returns  the  integer  form  of 
the  choice. 

5.  Lines  246  through  266 

This  group  of  statements  will  cause  new  arrays 
entered  by  the  players  to  be  reinitialized.  It  is  an  option 
that  will  allow  the  players  to  start  a  new  game.  Once  the 
option  is  selected  the  players  are  asked  if  they  want  to 
continue  and  are  given  a  chance  to  return  to  menu  selection 
without  erasing  the  arrays.  The  players  answer  to  this 
question  is  read  by  INPUT,  and  any  leading  blanks  and 
characters  other  than  the  first  one  are  discarded  by  INVRT1. 
If  the  players  want  to  restart  the  game,  control  is 
transf erredto  99(line  205). 
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6.  Line  257 

This  line  transfers  control  to  the  STOP  statement 
if  the  players  indicate  a  desire  to  stop  play  and  exit  the 
game. 

7.  Lines  258  through  284 

These  statements  print  a  warning  about  the  maximum 
number  of  platforms  allowed  by  the  game,  and  read  the  number 
of  game  turns  the  game  is  to  last  and  the  water  condition. 

8.  Lines  28  5  through  124 

These  lines  read  the  basic  game  parameters  and  the 
password  for  the  Blue  side.  The  password  is  read  with 
INPUT,  and  INVRT6  discards  any  leading  blanks  and  any 
characters  other  than  the  first  six.  It  returns  the 
password  as  BLUPA3  which  is  echo-printed  to  ensure  the 
player  knows  his  password  as  "understood"  by  the  program. 

The  variables  BLUSUR,  BLUSUB  and  BLUDES  are  also  input  and 
echoed  by  these  lines  with  an  opportunity  to  correct  any 
errors. 

9 .  Lines  325  through  764 

Lines  325  through  3 84  perform  for  the  Red  player  the 
same  function  lines  285  through  324  do  for  the  Blue  player. 

10.  Lines  86 5  through  375 

These  statements  assign  numbers  to  variables  used 
as  pointers  to  the  PLATFM  array  during  the  initial  loading 
of  the  platforms.  Because  the  program  automatically  loads 
the  aircraft  carried  by  a  ship  and  the  combat,  move  and 
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search  routines  require  aircraft  to  appear  first  in  the 
array,  surface  ships  and  submarines  are  located  at  the 
bottom  of  the  PLATFM  array  using  these  pointers.  This 
method  of  loading  leaves  a  gap  between  aircraft  and  ships 
unless  there  are  exactly  100  platforms  loaded.  The  gap, 
if  it  exists,  is  closed  prior  to  the  start  of  the  game. 
Figure  4  as  previously  shown,  shows  the  form  of  the  PLATFM 
array  and  its  pointers  prior  to  closing  the  gap. 

11  •  Lines  376  through  5*34 

This  section  of  the  program  performs  the  loading  of 
the  platforms  selected  by  the  Blue  player. 

a.  Lines  379  through  397 

These  lines  ask  for,  and  read,  the  Blue  player's 
password.  If  the  reply  is  incorrect,  he  is  given  the 
opportunity  to  reenter  the  password  or  return  to  menu 
selection.  DO  LOOP  l4l  compares  each  element  of  the  array 
CHECK  with  BLUPAS .  A  is  set  equal  to  one  if  any  elements 
do  not  match  and  an  error  message  is  printed.  If  the 
entered  password  is  correct,  control  is  transferred  to  8 
(line  398)  and  the  player  proceeds  with  loading. 

b.  Lines  398  through  446 

This  section  controls  the  loading  of  the  Blue 
surface  ships.  SHIPNO  is  a  local  variable  that  is  used  to 
store  the  number  of  the  Blue  ships  being  loaded.  It  runs 
from  zero  to  BLUSUR.  Prior  to  entry  into  the  loading  loop, 
BLUSUR  is  checked  against  zero,  and  control  is  transferred 
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to  the  submarine  loading  section  if  no  Blue  surface  ships 
were  desired  by  the  player.  DO  LOOP  165  is  a  long  loop 
that  does  all  the  surface  ship  loading.  It  runs  from  PBSUR1 
to  PBSUR2  using  SHIP  as  its  index.  The  first  steps  of  the 
loop  are  used  to  increment  SHIPNO  by  one  and  print  a  format 
statement  requesting  a  six  character  name  for  the  SHIPNO 
ship.  This  player  assigned  name  is  stored  in  NAME (SHI P, x) . 
This  player  assigned  name  is  stored  in  NAME(SHIP,x) .  SHIP 
is  also  the  row  index  number  of  PLATFM  containing  the  infor¬ 
mation  associated  with  NAME(SHIP.x) .  Next  the  player  is 
asked  to  enter  the  ship  class  name  of  SHIP.  The  proper 
class  names  and  the  specifications  for  each  class  can  be 
found  in  Appendix  B.  CLASNA  is  used  to  store  the  class 
name,  and  subroutine  SCLASS  is  called  to  find  the  row  index 
number  of  the  class  name  in  NAMESH  that  matches  CLASNA. 

This  index  is  stored  in  CLASIN,  and  it  is  associated  with 
the  row  in  SHIPDA  that  contains  the  basic  information  for 
that  class  of  ship.  CLASIN  is  stored  in  PLATFM(SHIP, 30) • 

The  next  piece  of  information  entered  is  the  initial  hex 
location  for  the  ship  which  is  stored  in  PLATFM(SHIP, 3) . 

The  last  19  statements  of  this  section  transfer  the  ship 
class  information  from  SHIPDA  and  enter  it  in  the  appropriate 
columns  of  PLATFM.  Sections  B.l.  and  B.2.  of  this  chapter 
discuss  the  contents  of  the  columns  of  these  arrays. 
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c.  Lines  447  through  485 

DO  LOOP  155  is  the  loop  that  loads  any  aircraft 
SHIP  carries.  It  runs  from  26  to  2?  because  these  are  the 
columns  of  PLATFM  that  contain  the  aircraft  index  numbers. 

The  first  statement  of  the  loop  checks  the  column  to  see  if 
an  index  number  is  entered.  If  the  number  is  zero,  control 
passes  to  the  end  of  the  loop.  If  the  location  contains  an 
aircraft  index  number,  the  number  is  stored  in  ACINDX.  The 
next  statement  prints  the  class  name  of  the  ship  being 
loaded,  the  number  of  ACINDX  type  aircraft  the  ship  carries 
and  the  name  of  the  ACINDX  type  aircraft  as  stored  in 
NAMEAC.  Line  456  stores  the  row  index  number  of  the  first 
ACINDX  type  aircraft  in  the  parent  ship's  PLATFM  row.  Line 
457  adds  the  number  of  ACINDX  type  aircraft  carried  by  the 
ship  to  BLUAIR,  and  line  458  stores  the  row  index  number  of 
the  last  ACINDX  type  aircraft  in  the  parent  ship's  PLATFM 
row.  DO  LOOP  154  actually  loads  the  aircraft  information 
into  PLATFM.  Its  index  is  AC,  and  it  runs  from  P  to  Q  which 
are  set  equal  to  the  first  and  last  PLATFM  row  index  numbers 
of  the  aircraft.  ACOUNT  is  the  number  of  the  aircraft  being 
loaded.  DO  LOOP  154  also  askes  the  player  for  a  six  character 
name  for  each  aircraft.  DO  LOOP  153  enters  the  name 
in  the  NAME  array.  The  next  12  lines  transfer  the  required 
information  from  ACDATA  to  PLATFM. 
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d.  Lines  486  through  534 

This  section  loads  the  Blue  submarines.  The 
first  statement  checks  BLUSUB  to  see  if  the  Blue  player 
entered  a  request  for  submarines.  If  not,  control  is 
transferred  to  the  first  statement  of  the  Red  loading 
section.  DO  LOOP  175  controls  the  loading,  and  it  runs  from 
PBSUB1  to  PBSUB2.  SUB  is  the  index  of  the  loop  and  SUBNO  is 
the  number  of  the  submarine  being  loaded.  The  submarine 
loading  statements  follow  the  same  pattern  as  the  surface 
ship  section  except  no  aircraft  are  loaded.  A  six  character 
name  for  the  submarine  is  requested  and  entered  in  the  NAME 
array.  A  class  name  and  an  initial  hex  location  are  also 
requested.  The  last  18  lines  transfer  data  from  SHIPDA  to 
PLATFM . 

12.  Lines  536  through  692 

These  statements  perform  the  loading  of  Red 
platforms,  and  they  are  almost  an  exact  duplication  of  the 
Blue  loading  section.  The  only  difference  is  in  line  57 
which  sets  REDAIR  equal  to  BLUAIR.  This  is  necessary  to 
ensure  the  Red  aircraft  are  properly  loaded  into  PLATFM 
using  the  incremental  process  starting  in  line  615. 

13-  Lines  69  3  through  710 

The  first  five  lines  of  this  section  set  the 
aircraft  PLATFM  pointers.  The  variables  for  each  type  of 
platform  and  total  number  of  platforms  are  also  set.  The 
total  number  of  platforms,  IPLAT ,  is  compared  to  100.  If  it 
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is  larger,  the  game  must  be  restarted,  and  control  is 
transferred  to  99  (line  205) • 

l4.  Lines  711  through  792 

These  lines  close  the  gap  between  aircraft  and 
ships  loaded  into  PLATFM.  The  first  statement  checks  the 
location  of  the  first  Blue  surface  ship,  PBSUR1 ,  against 
the  row  index  number  of  the  last  Red  aircraft,  PRAIR2,  plus 
one.  If  these  numbers  are  equal,  there  is  no  gap  and  the 
section  is  passed.  If  there  is  a  gap,  it  is  closed  with  a 
group  of  nexted  do  loops.  DO  LOOP  283  runs  from  one  to 
ISHIP,  the  total  number  of  Blue  and  Red  ships,  using  I  as 
an  index.  This  loop  moves  through  all  rows  of  the  PLATFM 
array  that  contain  ships.  DO  LOOP  281  actually  moves  the 
information  for  each  column  of  the  selected  rows.  DO  LOOP 
282  closes  the  gap  in  the  NAME  array.  DO  LOOP’S  284  and 
285  check  the  ship's  PLATFM  row  to  see  if  it  contains 
aircraft.  If  aircraft  have  been  assigned,  the  PLATFM  rows 
containing  aircraft  have  new  parent  ship  row  index  numbers 
placed  in  column  21  to  adjust  for  closing  the  gap. 

F.  GAME  CONTROL 

Lines  743  through  87 7  of  the  main  program  control  the 
actual  "play"  of  the  game  turns.  This  is  accomplished  by 
several  administrative  functions  and  calls  to  subroutines. 

A  simplified  flow  chart  can  be  found  in  Figure  5*  ITURN 
is  the  counter  for  the  number  of  game  turns  played,  and  it 
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Figure  5  (continued) 


is  compared  to  the  number  stored  in  TURN  to  determine  the 
normal  game  end. 

1 .  Lines  747  through  759 

The  first  action  required  for  game  control  is  to 
gain  access  to  the  display  routines.  This  is  done  by 
requesting  the  Blue  player  to  input  his  password  and  by 
calling  subroutine  STATUS  discussed  later  in  this  chapter. 
STATUS  will  check  the  password  and  return  an  error  code  of 
zero  in  ERROR  if  the  password  is  correct.  If  ERROR  equals 
zero,  STATUS  will  allow  the  player  to  view  the  results  of 
the  previous  game  turn  and  input  instructions  for  the  next 
turn.  Control  will  then  be  transferred  to  20  (line  760),  the 
Red  call  to  STATUS.  If  ERROR  equals  one,  an  error  message 
is  printed,  and  instructions  are  requested.  The  player 
can  either  reenter  his  password  or  return  to  menu  selection 
to  restart  the  game. 

2.  Lines  760  through  770 

These  lines  perform  the  same  function  for  the  Red 
player  as  the  previous  section  did  for  the  Blue  player. 

3-  Line  771 

Line  771  calls  subroutine  CONTRL,  discussed  later 
in  this  chapter,  which  is  the  driver  for  all  the  combat, 
move  and  search  routines. 

4.  Lines  772  through  781 

BDES  and  ROES  are  local  variables  used  to  store  the 
number  of  Blue  and  Red  ships  sunk  after  each  game  turn.  DO 
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LOOP  303  loops  through  array  SUNK,  and  increments  the 
appropriate  variable. 

5.  Lines  782  through  793 

This  section  of  statements  asks  several  questions 
about  BDES .  If  BDES  is  equal  to  the  total  number  of  Blue 
ships,  the  game  is  automatically  ended  by  transferring 
control  to  line  815*  If  BDES  is  less  than  BLUDES,  the 
player-selected  number  for  premature  game  end,  control  is 
passed  to  23  (line  792)  which  checks  RDES.  The  last  eight 
lines  are  reached  only  if  BDES  is  less  than  the  total  number 
of  Blue  ships  and  greater  than  or  equal  to  BLUDES.  They 
print  a  statement  informing  the  player  of  the  situation, 
and  give  him  the  option  of  continuing  or  ending  the  game. 

6.  Lines  792  through  801 

These  lines  check  RDES  for  the  Red  player  as  lines 
782  through  793  do  for  the  Blue  player. 

7 •  Lines  802  through  811 

Lines  802  through  811  increment  ITURN  and  transfer 
control  to  the  start  of  another  game  turn  if  it  is  less  than 
TURN.  If  it  is  greater  than  or  equal  to  TURN,  the  players 
are  given  the  option  of  continuing  or  ending  the  game. 

8.  Lines  812  through  878 

This  section  of  statements  ends  the  game  by  printing 
the  status  and  final  location  of  each  ship.  COUNT  is  a 
counter  used  to  ensure  the  results  are  not  pushed  beyond  the 
top  of  a  CRT  display.  DO  LOOP  313  prints  the  results  of 
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the  game.  It  runs  from  A  to  B  with  PLT  as  its  index.  A  and 
B  are  variables  set  equal  to  the  first  and  last  PLATFM  row 
index  numbers  of  each  of  the  four  types  of  ships.  C  is  a 
flag  that  indicates  which  of  the  four  is  being  printed 
(one-Blue  surface,  two-Blue  submarines,  three-Red  surface 
and  four-Red  submarines).  Lines  833  and  834  increment  COUNT 
and  compare  it  to  ten.  If  COUNT  is  less  than  ten,  control 
is  transferred  to  the  CONTINUE  statement  of  the  loop.  If 
COUNT  is  equal  to  ten,  a  new  page  of  output  is  started. 

Lines  843  through  845  check  the  value  of  C ,  and  transfer 
control  to  the  appropriate  section  to  increment  A,  B  and  C. 
For  example,  if  C  is  equal  to  one,  control  passes  all  three 
statements,  and  goes  to  the  Blue  submarine  section.  There  A 
is  set  equal  to  PBSUB1 ,  B  to  PBSUB2  and  C  is  set  equal  to 
two.  Control  then  returns  to  the  loop  to  print  the  Blue 
submarine  results.  If  C  is  equal  to  two,  control  is 
transferred  to  line  863  which  prints  a  message  to  begin  the 
Red  results.  Then  A,  B,  C  and  COUNT  are  updated  for  Red 
surface  ships,  and  control  is  again  transferred  to  the  loop. 
After  all  four  ship  results  have  been  printed,  line  868 
prints  a  message  that  gives  the  players  a  choice  of  starting 
a  new  game  by  returning  to  menu  selection  or  letting  the 
game  end.  If  the  game  is  allowed  to  end,  line  874  prints  an 
exit  message. 

G.  DISPLAY  SUBROUTINES 

The  display  subroutines  are  called  every  game  turn. 

They  are  used  to  display  the  results  of  the  game  turn  and  to 
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input  combat,  move  and  search  instructions  for  the  next 
turn.  Pour  display  options  are  available.  They  are 
detections  of  enemy  ships,  results  of  weapons  fired,  damage 
to  friendly  ships  and  individual  display/input 
instructions . 

1.  Subroutine  STATUS (PASWRD. ERROR. NAMEWP) 

STATUS  is  the  main  driver  for  all  the  display 
routines.  It  is  called  with  the  player's  password,  PASWRD, 
and  the  array  NAMEWP,  and  it  returns  an  error  flag  in  ERROR 
if  the  player  entered  the  wrong  password.  No  modification 
for  Blue  or  Red  calls  is  required  because  the  subroutine 
assigns  appropriate  local  variables  based  on  the  entered 
password. 

a.  Lines  13  through  30 

DO  LOOP  100  checks  PASWRD  against  BLUPAS ,  and 
sets  A  equal  to  one  if  one  of  the  elements  does  not  match. 

If  this  is  the  case,  control  is  transferred  to  300  (line  31). 
If  PASWRD  does  match,  the  calling  player  is  Blue  and  lines 
19  through  29  set  local  variables  equal  to  the  Blue  PLATFM 
pointers  and  Blue  game  parameters. 

b.  Lines  31  through  47 

These  lines  check  PASWRD  against  REDPAS  and  if 
there  is  a  match,  perform  the  same  operations  as  lines  14 
through  29. 
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c.  Lines  48  through  51 

If  neither  ELUPAS  or  REDPAS  match  PASWRD,  the 
player  has  made  a  mistake.  These  lines  print  an  error 
message,  and  transfer  control  to  the  end  of  the  subroutine 
with  ERROR  equal  to  one. 

d.  Lines  52  through  64 

If  either  BLUPAS  or  REDPAS  match  PASWRD,  control 
is  passed  to  this  section.  The  first  seven  lines  print  a 
format  statement  that  asks  the  player  to  select  and  enter  a 
display  option.  The  answer  is  read  by  INPUT,  converted  to 
an  integer  by  NONVRT  and  stored  in  A.  Line  66  compares  A  to 
the  possible  option  numbers,  and  prints  an  error  message  if 
it  is  incorrect.  If  A  is  a  proper  option,  control  is 
transferred  to  830  (line  ?1). 

e.  Lines  71  through  82 

These  lines  check  A,  and  call  the  various 
display  subroutines  that  correspond  to  the  options.  After 
each  call,  control  is  returned  to  1000  (line  59),  and  the 
option  menu  is  reprinted. 

f.  Lines  83  through  92 

The  last  option  is  to  start  the  next  game  turn. 
These  lines  print  a  format  statement  that  asks  the  player 
if  he  has  entered  all  combat,  move  and  search  instructions. 
If  he  does  not  answer  yes,  control  is  passed  to  line  59. 
Otherwise  control  is  returned  to  the  main  program. 


2.  Subroutine  DETXT( AC1 .AC2.SUR1 .SUR2.SUB1 .SUB2.NAMEWP) 

This  subroutine  loops  through  the  DETECT  array  and 
prints  the  detections  of  the  calling  player’s  platforms. 
ALPHA1  is  an  alpha  array  that  contains  the  word  "SURFACE" 
in  its  first  row  and  "SUBMARINE"  in  the  second.  ALPHA2  is 
an  array  that  contains  the  words  "PASSIVE"  and  "ACTIVE". 

COUNT  is  a  counter  for  the  number  of  lines  the  routine  prints 
When  COUNT  goes  past  a  certain  number,  a  new  "page"  of 
output  is  stated.  This  prevents  detections  from  being 
pushed  beyond  the  top  of  CRT  display  units. 

DO  LOOP  6  is  the  only  loop  in  the  subroutine,  and 
it  runs  from  one  to  100  with  PLT  as  its  :index.  PLT  is  the 
number  of  a  row  of  the  DETECT  array.  D1  is  set  equal  to  the 
first  column  of  DETECT  which  contains  the  PLATFM  row  index 
number  of  the  platform  doing  the  detecting.  D2  is  set  equal 
to  column  two  of  DETECT  which  contains  the  row  index  number 
of  the  detected  ship.  If  the  first  column  of  a  row  in  the 
DETECT  array  is  minus  one,  the  previous  row  was  the  last 
detection,  and  control  is  transferred  to  the  end  of  the 
routine.  Lines  22  and  23  check  the  detecting  platform  to 
ensure  it  belongs  to  the  calling  player.  If  it  does  not, 
that  row  of  the  array  is  passed.  If  the  detecting  platform 
does  belong  to  the  calling  side,  line  25  prints  four  pieces 
of  information.  The  first  is  the  name  of  the  detecting 
platform  as  stored  in  the  D1  row  of  NAME.  The  second  is  the 
type  of  sonor  used.  A  flag  relating  to  the  sonor  type  is 
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stored  in  the  third  column  of  DETECT.  A  one  is  added  to 
this  flag  (zero-passive,  one-active),  and  that  row  of 
ALPHA2  is  printed.  The  third  piece  of  information  is  the 
type  of  ship  detected  which  is  an  index  number  stored  in 
column  eight  of  row  D2  in  PLATFM.  This  number  yields  the 
row  of  ALPHA1  which  contains  the  ship  type  name.  The  last 
piece  of  information  is  the  hex  location  of  the  D2  shin  in 
PLATFM.  Lines  28  and  29  increment  COUNT  and  check  it  against 
the  number  19.  If  COUNT  is  greater  than  or  equal  to  19, 

COUNT  is  set  to  zero ,  the  heading  is  printed  on  a  new  page 
and  control  is  passed  back  to  DO  LOOP  6.  Otherwise  control 
is  maintained  by  the  loop. 

3.  Subroutine  SH0TRE( AC1 . AC2.SUR1 .SUR2.SUB1 .SUB2. 
NAMEWP.SUR.SUB) 

SHOTRE  is  the  subroutine  that  displays  the  results 
of  the  weapons  fired  by  the  calling  side.  R  is  a  real 
variable  that  stores  the  probability  of  a  hit,  and  ALPHA1 
is  an  array  that  holds  the  word  "DETONATION"  in  row  one  and 
"NO  DETONATION"  in  row  two.  COUNT  is  again  used  to  count 
the  number  of  lines  printed  so  the  results  are  not  pushed 
beyond  the  top  of  a  CRT  display. 

a.  Lines  16  through  46 

These  lines  print  the  results  of  weapons  fired 
by  aircraft.  Line  16  transfers  control  to  the  ship  loop  if 
no  aircraft  are  loaded.  DO  LOOP  10  runs  from  AC1  to  AC2 
with  PLT  as  its  index.  Each  number  that  PLT  takes  will  be  a 
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row  index  number  of  an  aircraft  in  PLATFM  of  the  calling 
side.  Columns  23  and  24  of  PLATFM  rows  containing  aircraft 
hold  the  shot  results  for  weapons  one  and  two  respectively. 

If  both  these  columns  are  zero,  neither  weapon  was  fired, 
and  line  21  will  transfer  control  to  the  end  of  the  loop. 

If  one  of  the  aircraft's  weapons  was  fired,  line  22  prints 
the  name  of  the  aircraft,  the  name  of  its  parent  ship  and 
the  combat  location.  DO  LOOP  ?  loops  through  both  weapons 
carried  by  the  aircraft  to  see  which  one  was  fired.  Only 
one  weapon  can  be  fired  by  an  aircraft  per  game  turn. 

RESULT  is  set  equal  to  the  column  which  holds  the  results  of 
the  weapon  firing.  The  numbers  one  through  six  represent  the 
number  of  chances  out  of  six  that  the  weapon  scored  a  hit. 

The  number  seven  or  eight  is  used  when  the  weapon  fired  was 
a  torpedo.  A  seven  indicates  the  torpedo  detonated  (a  hit) 
and  an  eight  means  it  did  not  detonate  (a  miss).  Line  30 
prints  the  number  of  the  weapon,  the  name  of  the  weapon  as 
stored  in  NAMEWP  and  the  probability  of  a  hit  if  the  shot 
result  is  between  one  and  six.  If  the  result  is  seven  or 
eight,  line  3^  prints  the  number  and  name  of  the  weapon  and 
"DETONATION"  or  "NO  DETONATION".  COUNT  is  then  incremented 
and  checked  against  five.  If  COUNT  is  greater  than  or  equal 
to  five,  a  new  page  of  output  is  started  and  COUNT  is  set 
equal  to  zero. 
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b.  Lines  47  through  69 

These  lines  print  the  weapon  result  for  ships, 
starting  with  the  surface  ships.  A  is  set  equal  to  SUR1 , 
and  B  is  set  equal  to  SUR2.  These  are  the  PLATFM  row  index 
numbers  of  the  first  and  last  surface  ships  of  the  calling 
side.  C  is  set  equal  to  one  as  an  indication  that  surface 
ships  are  being  processed.  DO  LOOP  16  runs  from  A  to  B  with 
PLT  as  its  index.  Line  57  checks  the  column  that  holds  the 
shot  results  for  ships,  and  passes  control  to  the  end  of 
the  loop  if  none  of  the  weapons  for  the  PLT  ship  have  been 
fired.  Next  the  name  of  the  ship  and  its  combat  location 
are  printed.  DO  LOOP  15  runs  from  weapon  one  to  weapon 
three  for  each  ship  using  WP  as  its  index.  It  checks  the 
results  of  the  WP  weapon,  and  prints  a  statement  giving 
the  probability  of  hit  if  RESULT  is  between  one  and  six  or 
a  detonation  result. 

c.  Lines  70  through  75 

These  lines  increment  COUNT,  compare  it  to  four 
and  start  a  new  page  of  output  if  COUNT  is  equal  to  four. 

d.  Lines  76  through  81 

Line  76  checks  the  value  of  C,  and  passes 
control  to  the  RETURN  statement  if  it  is  greater  than  one. 

If  C  is  equal  to  one,  DO  LOOP  16  has  just  processed  the 
surface  ship  results,  and  must  now  do  the  submarines.  C  is 
set  equal  to  two,  A  and  B  are  set  equal  to  SUB1  and  3UB2, 
and  control  is  transferred  to  the  loop. 
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I-.  Subroutine  DAMREfSURl  .SUR2.SUB1  .SUB2.SUR.SUB) 

DAMRE  prints  the  damage  to  the  calling  side’s  ships 
using  the  same  double  loop  approach  as  SHOTRE. 

a.  Lines  18  through  32 

DO  LOOP  7  loops  through  the  ships  in  PLATFM, 
and  prints  a  "SUNK"  statement  if  column  20  is  equal  to  zero. 
If  column  20  is  not  equal  to  zero,  the  ship  is  not  sunk,  and 
column  11  holds  the  number  of  hits.  This  number  is  then 
printed.  Next  COUNT  is  incremented,  and  a  new  page  of 
output  is  started  if  it  exceeds  nine. 

b.  Lines  33  through  38 

These  lines  check  C ,  reset  the  variables  A  and  B 
to  SUB1  and  SUB2  and  return  control  to  DO  LOOP  7  if  it  is 
equal  to  one.  Otherwise  control  is  returned  to  STATUS. 

5.  Subroutine  STATIN(AC1 .AC2.SUR1 .SUR2.SUB1 . SUB 2 . NAMEWP ) 
This  subroutine  controls  the  individual  platform 
displays/command  acceptance  subroutines  which  are  divided 
between  aircraft  and  surface  ship/submarine  sections.  It  is 
called  by  subroutine  STATUS  and  calls  STATAC,  STATSS ,  NAMEIN, 
IN VERT 1  and  INVERTo. 

a.  Lines  18  through  30 

This  section  of  code  prints  the  heading  telling 
the  player  that  he  is  in  the  individual  platform  status 
section  and  to  enter  the  name  of  the  desired  platform.  It 
utilizes  INVERT6  to  preprocess  the  entry,  then  calls  NAMEIN 
to  convert  the  name  of  the  desired  platform  to  a  row'  index. 
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If  the  name  is  either  incorrect  (spelling  or  otherwise)  or 
belongs  to  the  opposing  player,  a  zero  index  is  returned. 

If  the  index  returned  is  zero  the  program  prompts  the  player 
to  reenter  a  valid  name. 

b.  Lines  31  through  38 

This  section  of  code  determines  if  the  row  index 
of  the  desired  platform  is  an  aircraft  or  a  surface  ship/ 
submarine  and  passes  control  to  either  STATAC  or  STATSS 
respectively.  Again,  there  is  a  check  against  the  other 
players  platform  being  processed. 

c.  Lines  39  through  47 

This  section  of  code  lets  the  player  continue 
with  another  platform  selection  or  return  to  the  status 
menu  selection. 

6.  Subroutine  STATAC (USED . INDEX ■ IN AME .NAMEWP) 

This  subroutine  is  all  input/output  related  and 
displays  a  selected  aircraft's  individual  status  to  include 
results  of  assigned  combat  missions,  current  speed,  current 
location,  results  of  search  missions  and  damage  inflicted  on 
the  aircraft.  It  accepts  and  processes  all  game  turn  command 
inputs  for  aircraft.  USED  is  utilized  by  subroutine  STATIN 
and  is  a  flag  set  to  indicate  that  STATAC  has  executed. 

INDEX  is  the  PLATFM  array  row  index  of  the  desired  aircraft. 
INAME  is  an  array  that  contains  the  selected  aircraft’s  name. 
NAMEWP  is  the  array  that  contains  all  weapon  system  names. 
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Subroutine  STATAC  is  called  by  subroutine  STATIN  and  calls 
INVRT1,  INVRT6  and  DISTAN. 

a.  Lines  16  through  19 

This  section  of  code  determines  if  the  aircraft 
is  currently  flying.  If  not,  control  is  trans  'erred  to 
35  (line  99).  thus  bypassing  prior  game  turn  status. 

b.  Lines  25  and  26 

Displays  current  location  and  speed. 

c.  Lines  2?  through  39 

This  section  of  code  displays  results  of  combat 
action  undertaken.  It  displays  the  target  location  and 
weapon  employed.  If  weapon  system  one  (two)  was  used  then 
PLATPM  column  23(24)  will  contain  one  to  eight.  If  it  is  one 
thru  six,  then  a  non- torpedo  weapon  has  detonated  and  the 
probability  of  a  hit  is  that  number  out  of  six.  A  seven 
indicates  a  torpedo  detonated  while  a  eight  indicates  the 
torpedo  missed  and;  therefore,  did  not  detonate. 

d.  Lines  40  through  62 

This  section  of  code  displays  the  search  mission 
designated  and  the  DO  20  loop  identifies  and  displays  all 
detections  by  the  designated  aircraft. 

e.  Lines  63  through  71 

This  section  of  code  utilizes  the  weapon  row 
index  in  PLATFM  to  display  the  available  weapon  system(s) 
name  and  maximum  range. 
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f.  Lines  77  through  92 

This  section  of  code  accepts  and  processes  an 
entered  target  location  and  weapon  system  number  (one  or 
two).  This  data  is  entered  in  the  appropriate  section  of 
the  BUFFER  array.  It  then  transfers  control  to  40  (line 
107)  bypassing  the  section  that  launches  a  non-flying 
aircraft. 

g.  Lines  99  through  101 

Launches  a  non-flying  aircraft  by  setting 
column  11  of  PLATFM  equal  to  one. 

h.  Lines  107  through  116 

This  section  of  code  accepts  and  processes 
entered  speed  and  future  location  inputs.  This  data  is 
entered  in  the  appropriate  section  of  BUFFER. 

i.  Lines  122  through  128 

This  section  of  code  calls  DISTAN  to  determine 
the  distance  between  future  location  and  current  location. 
It  then  checks  to  insure  current  maximum  speed  is  not 
exceeded  and  that  the  distance  computed  is  less  than,  or 
equal  to,  the  speed  command.  If  in  error,  control  is 
transferred  to  40  (line  107)  and  prompts  the  player  to 
reenter  speed  and  future  location. 

j.  Lines  134  through  143 

This  section  of  code  accepts  and  processes  the 
search  command.  It  insures  that  the  aircraft  has  a  speed 
command  of  zero.  If  not,  it  transfers  to  50  (line  134)  and 
the  player  restarts  this  section. 


k.  Lines  149  through  166.  This  section  of  code 
displays  all  entered  and  processed  combat,  move  and 
search  commands. 

7.  Subroutine  S TATSS ( USED , INDEX . INAME . NAMEWP ) 

Subroutine  STATSS  is  all  input/output  related  and 
displays  a  selected  surface  ship/submarine  individual 
status;  to  include  results  of  assigned  combat  missions, 
current  speed,  current  location,  results  of  search  missions 
and  damage  inflicted  on  the  platform.  It  accepts  and 
processes  all  game  turn  command  inputs  for  surface  ship/ 
submarines.  USED  (line  18)  is  utilized  by  subroutine  STATIN 
as  a  flag  to  indicate  that  STATSS  has  executed.  INDEX  is 
the  PLATFM  row  index  of  the  desired  platform.  INAME  is  an 
array  that  contains  the  selected  platforms  name.  NAMEWP 
is  the  array  that  contains  all  weapon  system  names. 

a.  Lines  24  through  29 

This  section  of  code  displays  the  platforms 
current  position  and  speed,  determines  from  PLATFM(x,ll)  how 
many  times  the  platform  has  been  hit  and  displays  the  number 
of  hits  received  during  the  game. 

b.  Lines  35  through  42 

This  section  of  code  searches  the  HIT  array  and 
displays  hits  (including  type  weapon),  that  the  platform 
received  during  the  previous  game  turn. 

c.  Lines  48  through  62 

This  section  of  code  displays  results  of  combat 
operations  undertaken.  It  displays  the  target  location, 
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then  the  DO  20  loop  determines  the  weapon  system(s)  employed 
and  displays  employed  weapon  name  and  results  of  that  attack 
in  the  same  fashion  that  section  IV.F.6.C  does. 

d.  Lines  68  through  100 

This  section  of  code  displays  the  results  of 
the  search  mission(s) .  The  DO  40  loop  processes  the  DETECT 
array  to  display  type  platform,  location,  method  and  target 
range . 

e.  Lines  106  through  il8 

This  section  of  code  first  determines  if  the 
platform  has  been  sunk  (during  the  previous  game  turn).  If 
so,  the  subroutine  bypasses  the  command  input  section  and 
returns.  The  DO  51  loop  displays  weapon  system(s)  name(s) 
and  range(s)  available  to  the  platform. 

f.  Lines  124  through  142 

This  section  of  code  accepts  and  processes  an 
entered  target  location  and  weapon  system  number  for  combat 
operations.  This  data  is  entered  in  the  appropriate  section 
of  BUFFER.  Column  one  of  BUFFER  is  set  to  one  if  there  is  a 
combat  mission  assigned.  Then  column  six,  seven  and  eight 
are  set  to  negative  one  depending  on  whether  or  not  weapon 
system  number  one,  two  or  three  is  employed.  The  program 
then  determines  if  the  player  entered  another  weapon  system 
number.  If  so,  it  transfers  control  to  60  (line  133)  to 
accept  another  weapon  system  number. 
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g.  Lines  148  through  169 

This  section  of  code  accepts  and  processes 
entered  speed  and  future  location  inputs  for  movement.  It 
then  calls  a  utility  subroutine,  DISTAN,  to  determine  the 
distance  between  future  location  and  current  location  and 
checks  to  insure  current  maximum  speed  is  not  exceeded  and 
that  the  distance  computer  is  less  than,  or  equal  to,  the 
speed  command.  If  incorrect,  the  program  transfers  to  70 
(line  148)  and  restarts  this  section. 

h.  Lines  175  through  185 

This  section  of  code  accepts  and  processes  the 
search  command.  If  both  active  and  passive  search  is 
designated  (three)  and  the  flag  to  allow  that  is  not  set 
( PLATFM ( x , 24 )  equaling  one)  then  control  is  transferred  to 
80  (line  175)  to  restart  this  section.  The  search  command 
is  then  placed  in  the  BUFFER  array. 

i.  Lines  191  through  214 

This  section  of  code  displays  all  entered  and 
accepted  combat,  move  and  search  commands. 

H.  COMBAT  EXECUTION  SUBROUTINES 

The  subroutines  described  in  this  section  control  and 
execute  one  complete  game  turn  after  the  players  have 
entered  all  their  commands.  The  control,  execution  flow 
and  layering  of  subroutines  in  this  section  are  as  follows: 
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LEVEL 


1_ 

CONTRL 


2 


COMBAT 


MOVE 

SEARCH 


FIRE 

DISTUR 

RANGE 

FILKIT 

DAMREC 

ADVSUB 

AEVSUB 

PDVSUB 

PEVSUB 

DETEK 


1 .  Subroutine  CONTRL 

Subroutine  CONTRL  controls  the  execution  of  combat, 
move  and  search  phases  for  one  game  turn.  It  initializes 
all  working  arrays  at  the  appropriate  times.  Subroutine 
CONTRL  is  called  by  the  main  program  when  all  data  display, 
command  entry  is  complete  and  the  players  decide  to  execute 
the  current  game  turn.  It  calls  subroutines  COMBAT,  MOVE, 
SEARCH  and  utility  subroutine  DISTAN. 
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a.  Lines  1.8  through  36 

This  section  of  code  initializes  the  disturbed 
water  array  WATER  and  the  hit  array  HIT  in  the  DO  10  loop. 

In  the  DO  20  loop  it  removes  previous  combat  operations  and 
disturbed  water  zone  entries.  The  DO  21  loop  is  executed  for 
aircraft  only  and  removes  combat  result  information  from 
PLATFM.  The  DO  22  loop  removes  combat  result  information 
from  PLATFM  for  surface  ships  and  submarines. 

b.  Lines  42  through  46 

This  section  of  code  checks  for  non-flying 
aircraft  and,  for  any,  takes  the  future  location  of  the  parent 
ship  from  the  3UFFER  array  and  puts  that  in  the  aircraft's 
future  location  in  BUFFER. 

c.  Lines  52  through  66 

The  DO  25  loop  overlays  the  array  BUFFER  over 
selected  columns  of  PLATFM.  BUFFER  contains  the  individual 
combat  assignments,  movement  commands  and  search  commands 
for  the  current  game  turn.  Aircraft  only  carry  one  weapon 
system  and  therefore  have  no  need  to  utilize  columns  six, 
seven  and  eight  of  BUFFER  which  activates  the  individual 
surface  ship  and  submarine  weapon  systems. 

d.  Lines  68  and  69 

Executes  all  combat  and  movement 

e.  Lines  75  through  78 

The  DO  30  loop  initializes  the  detect  array. 

This  must  be  done  after  executing  COMBAT  and  MOVE  but  before 
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executing  SEARCH  as  SEARCH  makes  entries  in  DETECT. 

Subroutine  COMBAT  utilizes  those  entries. 

f.  Lines  83  through  95 

,  This  section  of  code  compares  all  current 
platform  locations  with  the  locations  of  disturbed  water 
zones  in  the  WATER  array.  The  DO  40  loop  sets  NUM  equal  to 
the  number  of  disturbed  water  locations.  The  DO  70  loop 
increments  through  all  platforms  bypassing  ones  that  are  either 
sunk  or  have  had  a  disturbed  water  zone  recorded  previously 
in  the  current  game  turn.  The  DO  60  loop  determines  the 
distance  from  a  platform  to  every  disturbed  water  location 
and,  if  the  distance  is  zero  or  one,  places  a  disturbed 
water  marker,  a  three,  in  column  six  of  the  array  PLATFM. 

g.  Line  101 

Executes  the  search  phase  by  calling  SEARCH. 

h.  Lines  107  through  119 

This  section  of  code  reinitializes  the  BUFFER 
array  prior  to  exiting  the  execution  stage  of  the  game  turn 
and  prior  to  accepting  future  entries.  BUFFER(x,4),  future 
location,  is  set  equal  to  the  current  position  in  case  a 
player  does  not  issue  a  move  command  for  that  platform. 

2.  Subroutine  COMBAT 

This  subroutine  executes  all  phases  of  air/surface  to 
subsurface,  and  subsurface  to  surface/subsurface  combat  for 
all  platforms.  It  is  called  by  CONTRL  and  calls  FIRE,  FILHIT 


and  DAMREC. 


a.  Lines  14  through  1? 


The  DO  30  loop  extends  to  line  48  and  executes 
the  basic  combat  assignments  for  all  platforms  excluding 
ones  that  are  sunk,  and  ones  that  do  not  have  combat 
assignments.  Line  1?  directs  control  to  either  aircraft  or 
surface  ship/submarine  combat  execution. 

b.  Lines  23  through  31 

This  section  of  code  executes  a  combat  assignment 
for  an  aircraft.  WEPIND  is  the  column  in  PLATFM  that  con¬ 
tains  the  weapon  system  row  index  (for  the  weapon  data  array 
WEP)  of  the  weapon  system  to  be  employed.  WEPSUP  is  the  col¬ 
umn  in  PLATFM  that  contains  the  weapon  resupply  value  for 
the  employed  weapon  system.  Subroutine  FIRE  is  called, 
passing  ATTK(row  index  of  attacking  platform),  WEPIND,  and 
WEPSUP.  IHIT  (zero  or  one,  a  one  if  the  attack  resulted  in 
a  hit),  ITAR  (row  index  of  the  target  platform)  and  PRHIT 
(probability  of  obtaining  a  hit)  is  returned  by  FIRE.  PRHIT 
is  expressed  as  an  integer  between  one  and  six.  X  is  the 
weapon  row  index.  Lines  27,  28  and  29  place  the  combat 
results  into  column  23  or  24.  If  the  attack  was  successful, 
subroutine  FILHIT  is  called  passing  the  attacking  platforms 
row  index,  weapon  system  row  index  and  target  platforms  row 
index  in  that  order.  FILHIT  records  the  hit.  It  then 
transfers  control  to  the  damage  assessment  section. 

c.  Lines  37  through  48 

This  section  of  code  executes  a  combat  assignment 
for  a  surface  ship/submarine.  WEPIND  and  WEPSUP  are  as 
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described  above  in  the  aircraft  section.  The  DO  20  loop 
searches  the  weapon  system  row  index  columns  looking  for  a 
negative  row  index  which  signifies  a  combat  mission  for  that 
weapon  system.  When  encountered,  the  negative  sign  is  removed 
and  subroutine  FIRE  is  called.  As  previously  stated  above, 
ATTK,  WEPIND,  and  WEPSUP  are  passed  and  IHIT,  ITAR  and  PRHIT 
are  returned.  The  combat  results  are  entered  in  the  PLATFM 
array  and  subroutine  FILHIT  is  called  if  the  attack  was 
successful. 

d.  Lines  5^  through  59 

The  DO  40  loop  calls  subroutine  DAMREC  to  process 
the  damage  resulting  from  the  game  turn.  It  passes  the  row 
index  of  the  hit  platform. 

e.  Lines  66  through  79 

The  disturbed  water  array  WATER  contains  the 
locations  of  all  detonations  that  occurred  during  the  current 
game  turn  and  may  contain  multiple  locations  from  multiple 
attacks  on  a  target.  This  section  of  code  removes  all 
duplicate  locations  and  closes  up  the  array  WATER. 

3-  Subroutine  FIRE (ATTK. WEPIND .WPLEFT. IHIT. ITAR. PRHIT) 

Subroutine  FIRE  executes  a  weapon  firing,  computes 
weapon  and  target  range  and  calculates  a  random  number  to 
compare  against  a  computed  probability  of  a  hit  to  determine 
hit  or  miss.  It  also  determines  disturbed  water  locations. 
ATTK  is  the  attacking  platform's  row  index.  WEPIND  is  the 
employed  weapon  row  index.  WPLEFT  is  the  weapon  resupply 
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value.  IHIT  is  one  or  zero,  a  one  signifying  a  hit  was 
obtained.  ITAR  is  the  targets  row  index.  PRHIT  is  the 
computed  probability  of  a  hit.  Subroutine  FIRE  is  called  by 
subroutine  COMBAT  and  calls  subroutine  DISTUR,  RANGE,  DISTAN 
and  RANDOM. 

a.  Line  18 

Immediately  returns  to  COMBAT  if  the  associated 
weapon  resupply  is  zero. 

b.  Lines  24  through  38 

This  section  of  code  decrements  the  associated 
weapon  resupply  by  one.  The  DO  10  loop  sets  ITAR  equal  to 
the  row  index  of  a  platform  whose  current  location  matches 
the  attackers  combat  location.  If  there  is  not  a  match, 
the  subroutine  returns. 

c.  Lines  37  and  38 

Subroutine  DISTUR  is  called  to  place  a  disturbed 
water  marker  into  WATER  using  the  target's  future  location. 

d.  Lines  44  through  49 

The  DO  15  loop  sets  Y  equal  to  one  if  the 
attacker  previously  detected  the  target.  If  not,  the  sub¬ 
routine  returns. 

e.  Lines  55  through  59 

This  section  of  code  insures  that  only  a  weapon 
capable  of  attacking  that  particular  type  of  target  is 
employed,  if  not,  the  subroutine  returns.  It  then  checks 
to  insure  that  air/surface  platforms  only  attack  subsurface 
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platforms  and  that  subsurface  platforms  only  attack  surface 
or  subsurface  platforms,  otherwise  the  subroutine  returns. 

f.  Lines  68  through  75 

This  section  of  code  determines  target  range 
(DIST)  from  DISTAN,  weapon  accuracy  (ACC)  and  weapon  range 
(RANG)  from  RANGE.  If  target  range  exceeds  weapon  range, 
control  is  transferred  to  40  (line  84)  to  inform  the  players 
of  that  fact.  It  then  calculates  the  probability  of  a  hit 
by  subtracting  the  targets  defense  value  (PLATFM(ITAR,19) ) 
from  the  weapon  accuracy  (ACC).  By  definition,  if  ACC  equals 
three,  the  probability  of  a  hit  is  one  out  of  six.  The 
program  calls  RANDOM  and  generates  an  integer  random  number 
from  one  to  six.  If  PRHIT  is  greater  than  or  equal  to  the 
random  number,  a  hit  occurs (IHIT  equal  to  one). 

g.  Line  82 

DISTUR  is  called  to  place  a  disturbed  water 
marker  at  the  targets  future  location  if  the  weapon  was  a 
torpedo  and  a  hit. 

4.  Subroutine  DISTUR(LOCAT) 

Subroutine  DISTUR  utilizes  LOCAT  which  is  the  hex 
address  of  a  weapon  that  has  detonated  and  caused  a  disturbed 
water  zone.  It  files  it  in  the  disturbed  water  array  WATER. 
It  is  called  by  subroutine  FIRE  and  does  not  call  any 
subroutines. 
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a.  Lines  13  through  15 


This  section  of  code  finds  the  next  unused  row 
of  the  array  WATER. 

b.  Lines  1 6  through  18 

This  section  of  code  tells  the  player  tnere  has 
been  over  100  detonations,  therefore  the  players  cannot  be 
certain  which  detonations  will  cause  disturbed  water  zones. 
It  then  returns  to  subroutine  FIRE. 

c.  Line  19 

If  there  is  room  in  WATER,  the  location  of  the 
disturbed  water  is  entered. 

5.  Subroutine  RANGE ( INDEX .ACC .RANG) 

Subroutine  RANGE  utilizes  weapon  system  row  index 
(INDEX)  to  enter  the  Weapon  Data  Summary  array  (WEP)  and 
pass  back  the  weapon  system  accuracy  (ACC)  and  the  weapon 
system  maximum  range  (RANG):.  Subroutine  RANGE  is  called  by 
subroutine  FIRE  and  does  not  call  any  subroutines. 

6.  Subroutine  FILHIT (ATTK .WEPON , ITAR) 

Subroutine  FILHIT  files  all  'hits'  on  surface  ships 
and  submarines  as  they  occur.  FILHIT  is  called  by  the 
subroutine  COMBAT  and  does  not  call  any  subroutines. 

a.  Lines  13  through  15 

This  section  of  code  locates  the  next  unused 
row  of  array  HIT. 
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b.  Lines  16  through  18 

This  section  of  code  tells  the  players  when  over 
100  hits  have  occured.  It  should  be  noted  that  if  this 
happens,  only  the  weapon  result  displays  to  the  players  are 
affected  and  that  weapon  results  for  some  firing  will  not 
be  available.  The  actual  damage  assessment  and  capability 
reduction  is  conducted  regardless. 

c.  Lines  19  through  21 

This  section  of  code  enters  the  target’s  row 
index,  weapon  system  row  index  and  attacking  platform's  row 
index  in  that  order. 

7 •  Subroutine  DAMKEC ( ITAR) 

Subroutine  DAMREC  processes  damage  inflicted  by  a 
hit  into  the  PLATFM  array,  and  places  ships  that  are  sunk 
in  the  SUNK  array.  It  is  called  by  subroutine  COMBAT  and 
does  not  call  any  subroutines. 

a.  Lines  18  through  22 

This  section  of  code  decrements  the  following 

by  one: 

Column  of  PLATFM  Identity 

12  maximum  speed 

13  ADV 

14  PDV 

15  weapon  one  resupply 

16  weapon  two  resupply 

17  weapon  three  resupply 
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Column  11  of  PLATFM  contains  durability  point 
losses  suffered.  For  ease  in  handling  internally,  it  is 
carried  as  a  negative  value.  ' 

b.  Lines  23  through  35 

This  section  of  code  checks  to  see  if  the  platform 
is  still  'alive'  and  ensures  it  had  not  been  sunk  previously 
during  the  current  game  turn.  If  so,  the  program  returns 
control  to  subroutine  COMBAT.  If  the  platform  was  sunk 
during  this  iteration,  it  locates  the  next  available  row 
in  the  SUNK  array. 

c.  Lines  37  and  38 

This  section  of  code  enters  the  row  index  of  the 
sunk  platform  into  SUNK  and  sets  the  durability  value  of  the 
platform  equal  to  zero  ( PLATFM(x ,  20 )'.  This  is  the  general 
indicator  for  the  rest  of  the  program.  That  is,  if  column  20 
of  PLATFM  is  zero  for  any  platform,  the  platform  is  ignored 
for  all  practical  purposes. 

8.  Subroutine  M0V5 

Subroutine  MOVE  executes  all  platform  movement 
except  platforms  that  have  been  sunk.  It  is  called  by 
subroutine  CONTRL  and  does  not  call  any  subroutines. 

a.  Lines  lb  through  17 

This  section  of  code  replaces  the  current 
location  ( PLATFM(x , 3 ) )  with  future  location  (PLATFM( x, 5) ) • 

The  DO  10  loop  skips  platforms  that  have  been  sunk. 


9 •  Subroutine  SEARCH 

Subroutine  SEARCH  executes  all  phases  of  active  and 
passive  search  missions  after  combat  operations  and  movement 
have  been  executed.  Note:  Surface  units  cannot  search 
against  other  surface  units  and  aircraft  cannot  detect 
surface  ships.  It  is  called  by  subroutine  CONTRL  and  call 
subroutines  ADVSUB,  AEVSUB,  PDVSUB,  PEVSUB  and  DETEK. 

a.  Lines  23  through  36 

This  section  of  code  executes  surface  and  air 
active  search  missions  against  subsurface  platforms.  If 
there  are  no  surface  or  air  platforms  involved  in  the  game, 
the  program  transfers  to  45  (line  62).  The  DO  20  loop 
executes  for  aircraft  and  surface  platforms  with  an  active 
mission  that  are  not  sunk.  The  program  calls  subroutine 
ADVSUB  to  calculate  the  active  detection  value  (ADV)  for  the 
searching  platform.  Then  the  DO  10  loop  processes  all 
submarines,  bypassing  those  sunk,  and  calls  subroutine 
AEVSUB  to  calculate  the  active  evasion  value  (AEV)  and 
range  (DIST)  between  the  two  platforms.  If  the  ADV  is 
greater  than  or  equal  to  the  AEV,  there  is  a  detection  and 
subroutine  DETEK  is  called  to  file  the  detection  in  the 
DETECT  array.  The  row  indices  of  searcher  and  target, 
active/passive  designation  and  range  are  passed. 

b.  Lines  43  through  55 

This  section  of  code  is  almost  identical  to  the 
section  described  above  except  that  it  is  the  passive 
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search  mission  that  is  being  executed.  The  passive  detection 
value  (PDV)  and  passive  evasion  value  (PEV)  are  substituted 
for  their  active  counterparts. 

c.  Lines  61  through  76 

This  section  of  code  executes  submarine  active 
search  missions  against  both  surface  ship  and  submarine 
platforms.  It  is  coded  in  the  same  fashion  as  above  except 
that  the  limits  of  the  DO  loops  and  indices  are  changed  to 
reflect  the  differing  platforms. 

d.  Lines  83  through  97 

This  section  of  code  executes  submarine  passive 
search  missions  against  surface  ship  and  submarine  platforms. 
It  is  coded  in  the  same  fashion  as  above  except  that  the 
limits  on  the  DO  loops  and  indices  have  changed  and  it  is 
executing  passive  vice  active  searches. 

10.  Subroutine  ADVSUB(I) 

This  subroutine  computes  the  active  detection  value 
(ADV)  for  a  platform  executing  an  active  search  mission.  It 
utilizes  I  as  an  index  to  access  the  proper  row  of  PLATFM. 

It  is  called  by  subroutine  SEARCH  and  does  not  call  any 
subroutines . 

a.  Line  15 

Sets  ADV  equal  to  the  active  detection  value  for 
that  platform. 

b.  Line  16  through  19 


This  section  of  code  bypasses  adjustments  for 
damage  and  speed  if  the  searching  platform  is  an  aircraft. 


The  ADV  is  decremented  for  both  damage  suffered  and  current 
speed  of  the  platform. 

c.  Lines  20  through  22 

This  section  of  code  decrements  ADV  for  both 
erratic  water  conditions  (ERATIC  equaling  one)  and  the 
platform  being  within  one  hex  of  a  disturbed  water  zone 
(PLATFM(x,6)  set  to  three).  The  ADV  must  be  joonnegative. 

11.  Subroutine  AEVSU3( I . J.DIST) 

This  subroutine  calculates  the  active  evasion  value 
(AEV)  for  a  potential  target  platform.  I  is  the  row  index 
of  the  searching  platform  and  J  is  the  row  index  of  the 
potential  target.  DIST  is  the  distance  between  platforms 
I  and  J.  It  is  called  by  SEARCH  and  calls  DISTAN. 
a.  Lines  17  through  21 

This  section  of  code  determines  the  distance 
between  platforms  I  and  J,  then  calculates  the  AEV  by 
dividing  the  distance  by  three  and  rounding  up.  Note  that 
Y  is  a  real  and  the  AEV  is  one  even  if  the  distance  is 
zero.  The  resulting  AEV  is  then  increased  if  the  target 
platform  is  in  a  disturbed  water  zone  (line  21). 

12.  Subroutine  PDVSUB(I) 

This  subroutine  computes  the  passive  detection 
value  (PDV)  for  a  platform  executing  a  passive  search 
mission.  It  utilizes  I  as  an  index  to  access  the  proper 
platform  in  PLATFM.  It  is  called  by  subroutine  SEARCH  and 
does  not  call  any  subroutines. 
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a.  Line  15 

Sets  PDV  equal  to  the  PDV  value  in  PLATFM. 

b.  Lines  16  through  20 

This  section  of  code  makes  PDV  adjustments  for 
damage  and  current  speed.  If  the  platform  is  an  aircraft 
(line  16)  this  section  is  bypassed.  Also,  if  the  platform 
does  not  suffer  degradation  of  capability  due  to  speed 
(line  18),  this  section  is  bypassed. 

c.  Lines  21  through  23 

This  section  of  code  makes  PDV  adjustments  for 
erratic  water  conditions  (ERATIC  equaling  one)  and  for 
being  within  one  hex  of  a  disturbed  water  zone  (PLATFM(x,6) 
is  set  to  three).  The  PDV  must  be  nonnegative. 

13.  Subroutine  FEVSUB( I ■ J. DIST) 

This  subroutine  calculates  the  passive  evasion  value 
(PEV)  for  a  potential  target  platform.  I  is  the  row  index 
of  the  searching  platform  and  J  is  the  row  index  of  the 
potential  target  platform.  DIST  is  the  distance  between 
platforms  I  and  J.  It  is  called  by  subroutine  SEARCH  and 
calls  DISTAN. 

a.  Lines  17  through  21 

This  section  of  code  determines  the  distance 
(DIST)  between  platforms  I  and  J  then  calculates  PEV  by 
dividing  by  ten  and  rounding  up.  Note  that  Y  is  a  real  and 
the  PEV  is  set  to  one  even  if  the  distance  is  zero.  This 
PEV  is  then  added  to  the  evasion  value  (PLATFM(x, 18) )  and 
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and  adjusted  for  being  within  one  hex  of  a  disturbed  water 
zone. 

b.  Lines  22  through  24 

This  section  of  code  adjusts  the  PEY  downward 
if  the  platform  executed  a  combat  mission  and/or  was  assigned 
an  active  search  mission.  The  PEV  must  be  nonnegative.  If 
the  target  platform  has  a  speed  of  zero,  did  not  execute  a 
combat  mission  and  was  not  assigned  an  active  search  mission 
the  PEV  is  defined  to  be  six. 

14.  Subroutine  DETEK(  II .  J.  AP . DIST') 

Subroutine  DETEK  files  all  detections  in  the 
detection  array  DETECT  as  they  occur.  II  is  the  row  index 
of  the  searching  platform,  J  is  the  row  index  of  the  detected 
platform,  AP  is  one  if  the  detection  was  by  active  means  and 
a  zero  if  by  passive  means,  and  DIST  is  the  distance  between 
the  platforms  II  and  J.  It  is  called  by  subroutine  SEARCH 
and  does  not  call  any  subroutines. 

a.  Lines  14  through  16 

This  section  of  code  locates  the  next  unused 
row  of  the  array  DETECT. 

b.  Lines  17  through  19 

This  section  of  code  tells  the  players  when 
over  100  detections  have  occurred,  that  detection  and  all 
future  detections  will  not  be  processed  as  detections. 
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c.  Lines  20  through  22 

This  section  of  code  places  the  row  index  of  the 
search  platform  in  column  one,  the  row  index  of  the  detected 
platform  in  column  two,  the  active/passive  indicator  in 
column  three  and  the  distance  in  column  four  of  the  DETECT 
array. 

I.  UTILITY  SUBROUTINES 

The  subroutines  described  in  this  section  perform 
functions  that  can  be  considered  "administrative"  and  not 
relate  i  to  any  particular  part  of  the  program  previously 
discussed. 

1.  Subroutine  N0NVRT( INPUT . OUTPUT) 

This  subroutine  takes  INPUT  which  is  a  character 
string  of  numbers  (70A1),  discards  any  leading  blanks  and 
returns  the  integer  form  of  the  string  as  OUTPUT.  It  is 
used  by  the  program  to  ease  the  entry  of  numbers  that  would 
otherwise  require  restrictive  format  statements.  All 
variables  in  the  subroutine  are  integer  mode  and  three 
integer  arrays  are  used.  NUMBER(IO)  is  a  data  array  that 
contains  the  ten  primary  digits,  zero  through  nine.  X(70) 
is  an  array  used  for  the  temporary  storage  of  the  numbers  in 
INPUT.  BLANK  and  DOT  are  alpha  variables  that  relate  to  a 
blank  space  and  a  decimal  point.  DO  LOOP  1  is  a  loop  that 
checks  each  column  of  INPUT  for  blank  spaces.  The  first 
column  number  that  contains  a  character  is  stored  in  IFNUM. 
DO  LOOP  3  checks  the  columns  IFNUM  through  70  of  INPUT  for 
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the  blank  or  decimal  point  that  ends  the  character  string. 
ILNUM  is  set  equal  to  this  column  number  minus  one.  IFNUM 
and  ILNUM  are  the  inclusive  column  numbers  of  INPUT  that 
contain  information,  and  INUM  is  the  total  number  of  columns 
that  contain  information.  DO  LOOP  6  runs  from  one  to  INUM 
with  I  as  its  index.  DO  LOOP  5  is  nested  in  DO  LOOP  6,  and 
it  compares  each  column  of  INPUT  to  the  character  digits  in 
NUMBER.  The  number  of  the  character  that  matches  is  placed 
in  X(I).  DO  LOOP  7  runs  from  one  to  INUM  with  J  as  its 
index,  and  it  actually  computes  the  number  placed  in  OUTPUT. 
INDEX  is  the  number  of  the  column  of  X  being  worked  on,  and 
it  is  decremented  from  right  to  left.  OUTPUT  is  calculated 
by  multipliying  X( INDEX)  by  a  factor  of  ten  raised  to  the  J 
minus  one  power.  For  example,  the  far  right  column  would  be 
multiplied  by  ten  to  the  zero  power,  and  added  to  OUTPUT. 

The  third  column  from  the  right  would  be  multiplied  by  ten 
to  the  second  power  or  100,  and  added  to  OUTPUT. 

2.  Subroutine  INVRT1 ( INPUT ■ IPUT)  and  INVRT6C INPUT , IPUT) 
These  subroutines  perform  the  same  basic  function 
which  is  to  read  a  character  string  and  return  it  without 
leading  blanks.  INYRT1  returns  only  the  first  character, 
and  is  use'*  to  record  Y(es)  and  N(o)  answers  as  "Y"  and  "N". 
It  does  this  with  one  loop  that  assigns  the  first  column  of 
INPUT  not  equal  to  a  blank  space  to  IPUT.  INVRT6  discards 
any  leading  blanks  and  returns  the  first  six  characters  of 
a  string.  It  is  used  for  recording  platform  names.  The 
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subroutine  uses  a  nested  loop  with  the  outside  loop 
searching  for  the  first  column  of  INPUT  to  contain 
information.  The  inside  loop  moves  the  first  six  columns 
of  INPUT  containing  information  to  IPUT,  and  transfers 
control  to  the  RETURN  statement. 

3.  Subroutines  SCLASS (NAME ■ INDEX ■ NAMEWP)  and  NAMEIN 
( INPUT ■ INDEX . NAME ■ AC  1 ■ AC  2 . SUR1 ■ SUR2 . SUB1 . SUB2T 

These  subroutines  compare  alpha  names  to  the  names 

in  arrays ,  and  return  the  row  index  numbers  of  the  names 

that  match.  SCLASS  searches  the  130  class  names  in  NAMESH 

with  a  simple  search  that  just  compares  the  first  four 

columns  of  the  arrays.  If  none  of  the  names  match,  INDEX  is 

returned  as  zero.  NAMEIN  searches  the  user  supplied  names 

located  in  the  array  NAME.  This  search  is  more  complicated 

because  the  row  index  numbers  are  checked  to  see  if  they 

match  the  rows  in  PLATFM  controlled  by  the  calling  player. 

This  prevents  the  wrong  index  number  being  returned  if  both 

Blue  and  Red  players  use  the  same  name  for  a  platform. 

4.  Subroutine  DISTAN(XX ■ YY ■ D) 

Subroutine  DISTAN  computes  and  returns  a  hex  distance 
(D)  between  any  two  hex  locations  that  are  passed  to  it 
(XX, YY).  It  is  called  by  subroutine  STATAC,  STATSS ,  CONTRL, 
FIRE,  AEVSUB  and  PEYSUB.  It  does  not  call  any  subroutines, 
a.  Lines  14  through  18 

This  section  of  code  separates  the  two  hex 


locations  XX  and  YY  into  their  two  components,  the  column 


component  the  first  two  digits  and  the  row  component 
composed  of  the  last  two  digits.  It  should  be  noted  that 
this  procedure  is  what  limits  the  size  of  the  game  board. 

If  the  100’s  in  lines  lk  through  17  were  changed  to  1000 's, 
then  the  upper  limit  on  the  game  board  and  in  this  program 
would  nominally  be  999  by  999-  Actually,  however,  only  the 
row  index  is  limited  to  two  digits.  The  column  index  is 
unlimited  except  for  the  hardware  limit  of  the  computer 
being  utilized.  D  is  initialized  to  zero  and  is  the 
distance . 

b.  Lines  19  through  38 

This  section  of  code  first  compares  the  columns 
of  the  two  locations.  If  they  are  equal  then  the  distance 
is  the  absolute  value  of  the  difference  in  the  row  coordinates. 
If  the  column  coordinates  do  not  match,  then  through  a  series 
of  comparisons,  the  row  and  column  of  the  XX  location  is 
incremented  or  decremented  to  make  it  appear  that  the  XX 
location  is  taking  a  ’step’  closer  to  the  YY  location. 

c.  Lines  39  through  kl 

After  the  'step'  is  taken  above,  the  distance  is 
incremented  by  one  and  the  locations  are  compared  column  to 
column  and  row  to  row.  If  there  is  no  difference  in  the 
coordinates  in  either  location  the  subroutine  returns  the 
current  value  of  D.  Otherwise  it  transfers  control  to  100 
(line  19)  and  section  b  above  is  repeated. 


V.  METHODOLOGY 


A.  INTRODUCTION 

This  chapter  outlines  a  general  structure  that  eases  and 
provides  a  framework  for  converting  tactical  hoard  games  to 

n. 

computer-assisted  war  games.  The  structure  presented  is 
based  on  lessons  learned  during  the  conversion  of  "UP 
SCOPE!."  It  should  be  remembered  that  the  program  presented 
in  Chapter  IV  is  not  the  result  of  the  outline  described  but 
just  the  opposite.  Although  the  ideas  presented  here  were 
largely  incorporated  in  the  program,  the  outline  itself  was 
not  available  during  programming.  The  experience  gained 
during  this  effort  would  result  in  some  changes  to  the 
program  if  the  programming  effort  was  started  again. 

An  effort  to  convert  a  board  game  to  a  computerized  game 
must  take  into  consideration  the  following  five  major  areas: 

1.  The  amount  of  computer  assistance. 

2.  The  rules  of  the  game. 

3-  The  procedures  required  by  the  game. 

4.  The  structure  of  the  data. 

5*  The  input  and  output  of  information. 

Although  each  of  the  above  areas  is  related;  they  should, 
in  general,  be  considered  separately  in  the  specific  order 
presented. 
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B.  COMPUTER  ASSISTANCE 

Computer  assistance  can  be  defined  as  the  degree  to 
which  the  computer  performs  the  tasks  previously  required  of 
the  players.  The  assistance  can  range  from  just  the 
calculation  of  hit  probabilities  all  the  way  to  graphic 
displays  and  voice  input.  The  amount  of  computer  assistance 
supplied  by  the  game  is  dependent  on  the  following  three 
factors  s 

1 .  The  Programmer 

The  first  factor  involves  the  programmer.  His 
ability  and  ideas  concerning  a  computerized  game  will  have 
a  large  effect  on  how  much  of  the  game  he  decides  to  pro¬ 
gram.  However,  this  decision  is’  usually  made  by  the 
programmer's  superiors. 

2.  The  Budget 

One  resource  restriction  involves  the  amount  of 
money  available  for  the  effect.  In  this  sense  "money" 
includes  equipment,  as  having  money  implies  the  ability  to 
spend  it  on  equipment.  Budget  considerations  can  largely  be 
ignored  by  the  programmer  because  he  is  given  the  parameters 
within  which  the  assigned  tasks  must  be  accomplished. 
However,  the  manager  must  be  aware  of  the  tradeoffs  between 
money  and  the  computing  capacity  and  speed  of  the  computer, 
and  how  they  will  effect  the  amount  of  assistance  the  pro¬ 
gram  can  provide. 
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3.  Time 

The  time  factor  involved  is  another  resource 
restriction  that  can  effect  the  amount  of  assistance  pro¬ 
vided  by  the  program.  The  time  factor  can  be  driven  by 
either  the  programmer  or  the  player.  Usually  the  degree  of 
assistance  is  designed  to  minimize  the  player's  time  and  not 
the  programmer's,  because  a  successful  game  will  be  played 
many  times.  An  awkward  game,  which  may  have  minimized  the 
programmer's  time,  will  waste  more  of  the  organization's 
personnel  hours  by  forcing  the  players  to  play  longer  than 
need  be. 

4.  Result 

The  assistance  provided  by  the  computerized  version 
of  Up  Scope  in  relation  to  the  board  game  is  almost  total. 

The  only  task  required  of  the  players,  other  than  to  be 
aware  of  the  rules  and  information  contained  in  the  data 
summaries,  is  to  maintain  the  game  board  with  ship  locations. 

C.  RULES  AND  PROCEDURES 

The  rules  of  a  board  game  and  its  procedures  are  closely 
related.  The  difference  lies  in  the  idea  that  rules  imply 
"can"  or  "cannot"  and  therefore  "should"  be  adhered  to  in 
order  to  play  the  game  correctly.  Rules  also  usually 
involve  some  choice  on  the  part  of  the  players.  They  can  be 
broken  and  yet  the  game  can  go  on.  Procedures  on  the  other 
hand  are  the  skeleton  of  the  game  and  involve  no  choice  on 
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the  part  of  the  players.  They  give  the  game  its  framework 
around  which  the  players  make  their  decisions.  An  example 
of  a  rule  in  Up  Scope  is  limiting  the  number  of  hexes  a  ship 
can  move.  A  procedure  would  be  the  calculation  of  a  hit 
probability  and  the  rolling  of  the  die  to  determine  the  hit. 
In  a  conversion  effort  the  rules  and  procedures  become 
computer  code  and  instructions.  The  programmer  must  become 
extremely  knowledgeable  about  them  because  his  task  is  to 
translate  them  to  computer  code  with  no  accidental  changes. 

Changes  in  the  rules  and  procedures  can  be  the  result 
of  two  things.  The  first  is  the  fact  that  the  programmer  is 
restricted  in  some  way  that  necessitates  a  change.  The 
second  is  to  improve  the  game  in  some  fashion.  This 
normally  means  a  change  to  make  the  game  more  realistic. 
Prior  to  coding  the  first  computer  statement,  detailed  flow 
charts  should  be  prepared  for  each  aspect  of  the  game. 

These  flowcharts  will  force  the  programmer  to  study  and 
learn  the  rules  and  procedures  of  the  game.  They  will  also 
ensure  the  program  is  a  "faithful"  reproduction  of  the  board 
game,  or  highlight  any  changes  that  have  been  made. 

Caution  when  dealing  with  rules  and  procedures  is 
required.  Although  they  are  closely  related,  rules  involve 
interpretation  and  choice.  It  should  be  remembered  that  the 
conversion  of  a  game  to  a  computer  program  in  effect  makes 
rules  like  procedures  in  that  the  player  is  confined  to 
acting  in  a  certain  manner.  The  game  becomes  more  rigid  and 
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self-umpiring.  The  purpose  of  programming  a  board  game  is 
to  free  the  players  from  bookkeeping  and  computational 
chores  but  in  the  process  it  adds  restrictions.  The 
programmer  should  be  aware  of  this  tradeoff,  and  guard 
against  an  overly  restrictive  game. 

The  following  are  some  of  the  changes  made  to  Up  Scope: 

1 .  Weapons 

SPI's  procedure  for  handling  the  resupply  of  weapons 
involves  a  resupply  number.  This  number  is  used  to  limit 
the  number  of  weapons  each  platform  can  carry  and  fire. 

Each  weapon  can  be  fired  once  without  a  change  in  procedure, 
but  after  the  first  shot  a  qualifying  roll  of  the  die  must 
be  made  to  determine  if  the  weapon  can  be  fired  again.  If 
the  resupply  number  is  higher  than  the  die,  the  weapon  can 
be  fired.  If  not,  the  weapon  cannot  be  used  until  the  next 
game  turn  when  the  procedure  will  be  repeated.  Every  time 
the  weapon  is  fired,  its  resupply  number  is  reduced  by  one. 
The  computer  version  of  "UP  SCOPE!"  does  not  make  the 
qualifying  die  roll  described  above  because  the  procedure 
becomes  too  restrictive  and  unrealistic  when  the  resupply 
number  becomes  small. 

2.  Hits 

Another  change  designed  to  increase  realism  is  the 
amount  of  information  supplied  to  the  players  about  weapon 
results.  The  SPI  procedure  gives  the  offensive  player 
perfect  information  about  each  shot  result.  The 
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computerized  version  gives  the  player  the  probability  of  a 
hit  or  a  detonation  result  if  the  weapon  is  a  torpedo. 

3.  Aircraft 

The  main  change  concerning  aircraft  is  the  max  speed 
of  some  of  the  aircraft.  They  were  changed  to  reflect 
current  capabilities. 

D.  DATA  STRUCTURE 

Once  the  amount  of  computer  assistance  has  been 
determined  and  the  flowcharts  have  been  set,  the  data 
structure  for  the  game  can  be  finalized.  Of  course  some 
consideration  must  be  given  to  the  data  structure  while  the 
above  is  being  accomplished,  but  it  is  critical  that  the 
data  structure  be  finalized  in  its  chronological  place.  The 
order  should  have  the  flowcharts  prior  to  entering  the 
first  line  of  code.  Too  often  coding  is  started  prematurely 
in  an  attempt  to  get  "something  on  paper".  The  proper 
sequence  forces  the  programmer  to  consider  all  the  game’s 
data  requirements  before  he  commits  himself  to 
actual  code.  Any  other  procedure  will  result  in  numerous 
changes  and  additions. 

Usually  the  data  required  by  the  game  takes  one  of  two 
forms.  The  first  is  basic  data  which  includes  game 
parameters,  system  specifications  and  assumptions.  The 
basic  data  for  Up  Scope  includes  the  data  summaries  in 
Appendices  B,  C  and  D.  Information  presented  by  a  scenario 
can  also  be  considered  basic  data.  In  general  basic  data 
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includes  all  the  information  that  is  available  to  the 
players.  The  second  form  of  data  consists  of  the  working 
files  used  by  the  program  to  accomplish  its  tasks.  The 
working  files  will  be  transparent  to  the  players. 

1 .  Basic  Data 

Basic  data  is  often  not  a  primary  concern  of  the 
programmer  because  unlike  the  working  files  it  is  not 
manipulated  or  used  extensively  by  the  program.  This  should 
not  be  the  case  because  it  is  possible  to  improve  the 
program  by  careful  structuring  of  the  basic  data.  In  the 
computer  version  of  Up  Scope,  the  basic  data  is  entered 
using  data  statements.  As  previously  mentioned,  the  ship 
data  is  entered  using  18  different  data  arrays,  one  array 
for  each  separate  piece  of  information.  All  of  these 
arrays  are  equivalenced  to  SHIPDA  which  is  used  in  the 
platform  loading.  Although  this  seems  like  a  great  deal  of 
effort  when  one  or  two  large  data  arrays  could  be  used,  it 
saved  a  great  deal  of  time  finding  and  correcting  errors  in 
coding.  This  was  accomplished  with  no  increase  incomputing 
time  or  storage  requirements.  Another  aspect  of  the  basic 
data  structure  which  improved  the  program  was  the  ordering 
of  the  countries'  ships  in  SHIPDA.  The  order  in  SPI's  rule 
book  has  the  USSR  first  and  the  United  States  fifth.  By 
itself  this  seems  unimportant,  but  several  times  per  game 
turn  a  search  of  the  arrays  to  find  a  specific  ship  class  is 
.required.  Under  the  assumption  that  players  will  use  the 
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United  States'  and  USSR’s  ships  more  often,  the  search  times 
were  reduced  by  placing  the  ships  in  that  order. 

2.  Working  Files 

The  working  files  are  of  major  concern  to  the 
programmer  because  they  provide  a  focus  for  his  efforts. 

This  is  true  in  the  sense  that  all  the  actions  of  the 
program  are  directed  towards  accepting,  manipulating,  re¬ 
trieving  and  providing  information.  The  rules  and 
procedures  are  closely  related  to  the  structure  of  the 
working  files,  and  careful  thought  about  one  can  create  a 
savings  in  the  other.  A  good  example  of  this  is  the  format 
of  the  PLATFM  array  as  previously  shown  in  Figure  4.  There 
were  several  ways  to  order  the  platforms.  Blue  and  Red 
could  have  been  in  two  groups,  or  the  order  of  aircraft, 
surface  ships  and  submarines  could  have  been  different.  The 
present  structure  proved  to  be  more  efficient  when  consider¬ 
ing  the  detection  procedures.  UP  SCOPE!  allows  aircraft 
and  surface  ships  to  detect  submarines,  and  it  allows 
submarines  to  detect  surface  ships  and  other  submarines. 
Surface  ships  cannot  detect  each  other,  and  no  platform  can 
detect  aircraft.  The  structure  of  PLATFM  allows  one  loop 
to  process  each  of  the  two  detection  phases.  Other  PLATFM 
formats  would  require  numerous  smaller  loops  to  accomplish 
the  same  task.  The  structure  of  PLATFM  also  provides  a 
counter  example.  The  loading  of  the  platforms  is  a 
relatively  efficient  section  because  it  loads  aircraft 
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automatically  according  to  the  basic  data  in  Appendix  B,  but 
the  fact  that  aircraft  appear  first  in  PLATFM  required  a 
great  deal  of  index  and  pointer  manipulation  in  the  loading 
routine.  It  also  resulted  in  a  gap  between  aircraft  and 
surface  ships  that  had  to  be  closed  before  the  game  couldbe 
started.  All  of  these  problems  could  have  been  avoided  if 
the  order  of  the  platforms  had  been  reversed.  Having  sub¬ 
marines  first  and  aircraft  last  would  have  caused  no  change 
in  the  procedures,  but  would  have  greatly  simplified  the 
loading.  Unfortunately  once  this  was  discovered  too  many 
changes  in  other  parts  of  the  program  were  required,  and 
the  effort  would  have  been  counter-productive. 

The  columns  of  PLATFM  provide  another  double-edged 
example.  The  order  of  the  information  in  each  row  is 
evidence  that  several  additions  were  made  after  the  fact. 
This  has  no  effect  at  all  on  the  program,  and  can  be  ignored 
from  the  player's  point  of  view.  One  aspect  of  the  row 
ordering  that  should  not  be  ignored  is  the  contiguous 
placement  of  certain  types  of  information.  For  example,  the 
placement  of  the  ship's  shot  results  in  columns  35.  3&  and 
37  allow  the  use  of  one  DO  LOOP  to  report  the  results  of  all 
the  weapons.  Similar  ordering  is  used  for  the  weapon  and 
aircraft  index  numbers  and  number  of  each  type  carried  by 
the  platform. 
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3.  Limitations 

Another  aspect  of  data  structures  that  should  be 
considered  by  the  programmer  is  the  possible  restrictions  it 
imposes.  All  of  the  working  file  arrays  in  Up  Scope  are 
dimensioned  to  100.  This  restricts  the  player  from  using 
more  than  100  platforms  in  a  game.  The  DETECT  array  imposes 
an  even  tighter  restriction  with  its  size  of  100  because 
each  platform  can  detect  more  than  one  ship.  The  choice  of 
10 0  was  largely  arbitrary,  and  can  be  changed  with  very 
little  effort.  It  should  also  be  noted  that  exceeding  the 
limits  of  any  array  causes  a  message  to  be  printed 
explaining  the  situation. 

E.  INPUT  AND  OUTPUT  REQUIREMENTS 

The  amount  and  format  of  the  information  required  and 
output  by  the  program  is  decided  largely  by  the  degree  of 
user-friendliness  desired.  The  basic  intent  of  this  effort 
was  to  program  a  game  that  was  very  friendly.  This  resulted 
in  numerous  lines  of  output  designed  to  give  the  player 
the  ability  to  change  his  inputs  and  to  clearly  define  his 
options  when  a  selection  was  required  from  him.  Unfortunately 
the  overall  effect  is  a  program  that  is  possibly  too  user- 
friendly  because  the  amount  of  lines  printed  that  contain 
information  not  directly  related  to  the  game  is  excessive. 

It  actually  slows  the  rate  of  play  when  a  player  becomes 
familiar  with  the  game  and  its  input  requirements. 
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The  above  highlights  the  major  tradeoff  associated  with 
input  and  output.  A  large  amount  of  instructions  and  game 
information  may  be  appropriate  if  the  game  will  be  played 
only  a  few  times  by  each  of  a  great  number  of  players. 
However,  a  game  that  will  be  played  many  times  by  the  same 
players  should  minimize  the  amount  of  extraneous  infor¬ 
mation  presented  and  requested. 
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VI.  FUTURE  ENHANCEMENTS  AND  CONCLUSION 

A.  FUTURE  ENHANCEMENTS 

1 .  Computer  Assistance 

The  computer  assistance  provided  by  the  computerized 
game  could  be  improved  by  the  use  of  two  terminals.  This 
would  allow  each  player  his  own  console,  and  eliminate  the 
need  for  passwords.  It  would  also  add  an  air  of  realism 
by  physically  separating  the  players.  The  present  structure 
of  the  program  is  such  that  only  minor  changes  would  be 
required  if  the  proper  system  support  were  available. 

Another  improvement  would  be  the  use  of  graphic  displays  to 
present  and  maintain  the  game  board  for  each  player.  This 
would  eliminate  the  last  "chore"  required  of  the  players. 

2.  Rules  and  Procedures 

Numerous  recommendations  could  be  made  under  this 
category.  The  only  limitations  are  the  size  of  the  computer 
and  the  imagination  of  the  programmer.  Of  the  three 
presented  here,  the  first  two  would  have  the  effect  of 
making  the  game  more  realistic.  The  third  is  strictly 
procedural . 

a.  Land  Bases 

The  current  version  of  Up  Scope  does  not  include 
the  use  of  land  based  aircraft  although  the  SPI  version 
does  and  the  aircraft  are  loaded  in  the  data  base.  The 
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addition  of  land  bases  would  require  a  special  type  of 
"platform"  to  be  loaded  in  the  PLATFM  array.  The  loading  of 
aircraft  for  this  platform  would  have  to  be  modified  by 
allowing  the  player  to  choose  the  type  of  aircraft,  unless 
the  programmer  designed  several  types  of  bases,  each  with 
different  aircraft.  These  bases  could  be  added  to  the  data 
base  as  "ship  classes"  without  the  ability  to  move  or  be 
sunk. 

b.  Surface  Warfare 

As  designed  by  SPI,  "UP  SCOPE!"  is  a  submarine 
warfare  game.  Future  efforts  might  include  the  expansion  of 
the  game  to  include  surface  warfare  as  well.  This  type  of 
change  would  involve  a  great  deal  of  work  because  an  entirely 
new  game  would  result. 

c.  Game  Board 

One  procedural  improvement  to  the  game  would  be 
computerized  control  of  the  playing  areas.  A  check  could  be 
programmed  to  ensure  neither  player  moved  his  ships  beyond 
the  area  dictated  by  the  scenario.  This  would  eliminate  the 
need  for  the  "gentleman's  agreement"  to  stay  within  the 
specified  area. 

3-  Input  and  Output 

Although  the  amount  and  format  of  input  and  output 
is  determined  by  the  type  of  player,  the  suggestions  below 
would  improve  the  game  for  both  the  expert  player  familiar 
with  the  instructions  and  the  new  player. 


•  / 
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a.  Platform  Loading 

The  procedure  for  the  initial  loading  of  ships 
requires  three  separate  lines  of  information  to  be  input. 

All  three  pieces  could  be  entered  on  one  line  with  the  use 
of  a  subroutine  like  NONVRT.  The  subroutine  would  be 
required  to  break  a  string  of  characters  into  three  separate 
"words"  with  each  word  a  different  format  or  mode.  These 
"words"  could  then  be  assigned  to  the  appropriate  variables. 
This  procedure  could  be  used  in  other  parts  of  the  program 
as  well. 

b.  Aircraft  loading 

Every  time  a  ship  class  that  carries  aircraft  is 
loaded,  the  program  automatically  loads  the  aircraft  and 
asks  the  player  to  input  a  name  for  each  aircraft.  This 
procedure  becomes  quite  lengthy  when  more  than  a  few 
aircraft  are  carried.  It  would  decrease  the  loading  time  if 
the  players  were  given  the  option  of  letting  the  program 
supply  names  for  the  aircraft  based  on  the  user-supplied 
name  of  the  ship.  For  example,  a  Virginia  class  ship  named 
GINNY  could  have  its  two  Sea  Sprites  named  GIN1  and  GIN2. 
This  change  would  not  be  too  difficult  to  make,  using 
character  manipulation  in  the  aircraft  loading  routine. 

B.  CONCLUSION 

Although  the  outline  presented  in  Chapter  V  does  not 
provide  a  detailed  checklist  including  step  by  step 
instructions  for  converting  a  tactical  board  game,  it  is 
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entirely  sufficient.  More  detail  would  not  necessarily  be 
an  improvement.  As  it  is,  the  outline  will  provide  the 
programmer  contemplating  a  conversion  a  great  deal  of 
assistance.  It  supplies  a  structure  that  will  guide  and  help 
organize  his  thoughts  and  efforts.  If  the  outline  had  been 
available  prior  to  the  conversion  of  "UP  SCOPE!",  it  would 
have  resulted  in  the  improvements  discussed  in  Chapter  V, 
and  it  would  have  saved  a  great  deal  of  time  spent 
reprogramming  routines  that  had  to  be  changed  because  they 
did  not  "fit"  the  rest  of  the  program.  The  outline  also 
provides  a  framework  for  future  enhancements  to  the  program. 

The  military  student  of  war  gaming  and  the  programmer 
required  to  convert  a  board  game  will  find  this  thesis 
highly  beneficial.  It  not  only  provides  a  structure  that 
will  help  the  programmer,  it  gives  the  student  some 
knowledge  about  designing,  developing  and  programming  war 
games  that  are  highlighted  by  actually  playing  "UP  SCOPE!." 
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APPENDIX  A 


SPECIFIC  SCENARIOS 

A.  SCENARIO  RESTRICTIONS 

Each  of  these  three  scenarios  constitutes  a  distinct 
game  utilizing  unique  forces  and  special  rules  as  required. 

A  scenario  normally  ends  at  the  conclusion  of  the  full 
number  of  Game-Turns  indicated  in  the  scenario  rules;  however 
any  of  these  three  scenarios  may  be  prematurely  concluded 
during  the  victory  determination  phase  (at  the  end  of  the 
game-turn)  if  any  of  the  following  conditions  are  satisfied. 

1.  All  of  the  participating  surface  ships  have  been 
sunk  or  have  exited  the  map  boundarios. 

2.  All  the  submarines  have  either  been  sunk  or  have 
exited  the  map  boundaries. 

3-  Either  played  has  achieved  a  major  victory  and  the 
opposition  desires  to  terminate  the  game. 

During  the  three  scenarios  that  follow,  one  player  is 
designated  the  "Attacker"  and  the  other  the  "Defender".  The 
attacker’s  mission  is  generally  to  inflict  the  maximum 
possible  damage  on  the  defender's  platform(s).  The  defender's 
mission  is  generally  to  ensure  that  his  platform(s)  exit  from 
the  map  boundary  without  suffering  any  damage  and/or  to 
inflict  the  maximum  possible  damage  on  the  attacking 
platform(s).  Either  players  platform's  are  permitted  to 
exit  the  map  boundaries  but  they  may  not  later  reenter  the 
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game.  It  should  be  noted,  however,  that  the  defender 
receives  final  Victory  Points  for  the  durability  value  of 
each  defending  platform  remaining  on  the  map  at  the  con¬ 
clusion  of  the  game,  if  there  are  no  attacking  platforms 
present  on  the  map  at  the  end  of  the  game. 

B.  SCENARIO  VICTORY  DETERMINATION  PROCEDURE 

1.  At  the  beginning  of  the  game  utilizing  one  of  these 
three  scenarios,  the  defender  records  the  total  durability 
value  of  all  platform(s)  under  his  control  and  records 
this  Initial  Victory  Point  Total. 

2.  At  the  end  of  the  designated  number  of  game  turns, 
the  defender  records  the  total  durability  value  for  all 
platform(s)  under  his  control  which  has  exited  the 
destination  map  boundary  as  specified  in  the  scenario 
util ized. 

3.  The  total  derived  above  is  incremented  by  one  for 
each  durability  point  of  damage  inflicted  on  the  opposing 
platform(s)  during  the  scenario  played. 

4.  The  total  derived  above  is  the  final  victory  point 
total  and  is  then  divided  by  the  initial  victory  point  total 
and  expressed  as  a  percentage.  This  is  the  victory  percentage 
ratio.  The  winner  and  level  of  victory  achieved  are  then 
obtained  from  the  following: 
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Victory  Percentage 
_ Ratio _ 

200 % 

100  to  199$ 

50  to  99% 

1  to  4 9 % 

0 % 

C.  SCENARIOS 

1 •  Here  it  Comes.  Chicago! 

a.  Scenario  description.  On  April  2,  1982,  a 
Russian  Delta  class  ballistic  missile  submarine  is  cruising 
off  the  northeast  coast  of  the  United  States.  For  the  last 
ten  days  the  Soviet  crew  has  been  aware  of,  and  hounded  by, 
an  American  task  force  of  two  Spruance  class  destroyers  and 
one  Knox  class  escort.  For  the  past  24  hours  all  platforms 
have  been  on  special  alert  as  the  two  superpowers  approach 
the  brink  of  nuclear  exchange.  Should  hostilities  commence, 
the  Delta  will  attempt  to  obliterate  a  large  chunk  of  real 
estate  centered  at  Chicago! 

b.  Date:  April  2,  1982 

c.  Water  condition:  Normal 

d.  Map  formats  33  by  45  hexes 

e.  Game  length:  Ten  Game-Turns 

f.  Special  Rules: 

(1)  During  the  command  phase  o f  each  game  turn, 
the  U.S.  player  rolls  a  die  keeping  the  result  from  the  Soviet 


Victor 

defender 

defender 

attacker 

attacker 

attacker 


Level  of 
Victor^/ 

Major 

Minor 

Minor 

Major 

Total 
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player.  No  platform  may  execute  a  combat  mission  until  a 
six  has  been  rolled.  Once  the  six  is  rolled,  all  surface 
platforms  may  be  assigned  a  combat  mission  according  to  the 
standard  game  rules.  Once  the  U.S.  player  executes  a  combat 
mission,  the  Delta  may  be  assigned  combat  missions  according 
to  the  standard  game  rules. 

(2)  The  Sea  Sprite  (Lamps)  helicopters- are  not 
considered  operational  during  this  scenario. 

(3)  No  platform  may  exit  the  board  boundary 
during  the  scenario. 

(L)  If  the  Delta  has  not  been  sunk  by  the  end 
of  the  tenth  game  turn,  the  U.S.  player  automatically  loses 
both  the  game  and  Chicago. 

g.  Soviet/defender:  One  Delta  class  ballistic 
missile  submarine;  initial  deployment  anywhere  within  three 
hexes  of  hex  1723. 

h.  U.S . /attacker:  Two  Spruances  class  destroyers, 
one  Knox  class  escort  deployed  anywhere  within  15  hexes  of 
the  western  board  boundary. 

2.  NATO  and  the  Denmark  Strait 

a.  Scenario  Description:  in  order  to  interdict 
NATO  shipping  during  periods  of  hostilities,  Soviet  sub¬ 
marines  must  transit  several  straits  all  oi  which  are 
patrolled  by  NATO  warships.  An  undeclared  "hot"  war 
commenced  today,  26  June  1982. 
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A  flotilla  of  Soviet  submarines  stationed  in 


the  Greenland  Sea  has  been  directed  to  move  south  of  the 
Arctic  circle  for  passage  into  the  Atlantic.  Most  have 
orders  to  transit  between  Iceland  and  the  Faeroe  Islands. 
However,  some  attempt  to  make  a  more  treacherous  transit 
between  Iceland  and  Greenland  -  through  the  Denmark  Strait. 
NATO  is  rapidly  deploying  an  ASW  hunter-killer  task  group 
tasking  them  to  intercept  and  destroy  all  submarines 
transiting  the  Denmark  Strait.  The  task  group  consists 
of  U.S.,  West  German  and  Great  Britain  destroyers.  This 
NATO  task  group  must  attempt  to  prevent  the  Soviets  from 
making  a  successful  passage  into  the  Atlantic  where  their 
cruise  missiles  would  wreak  havoc  on  NATO  shipping. 

b.  Date:  June  28,  1982 

c.  Water  condition:  Normal 

d.  Map  format:  33  by  90  hexes 

e.  Game  length:  20  game  turns 

f.  Special  rules:  The  scenario  automatically  ends 
if  at  the  end  of  any  game  turn  either  all  the  Soviet 
submarines  have  been  sunk  or  exited  off  the  western 

board  boundary. 

g.  Soviet/defender:  At  the  start  of  the  scenario 
the  Soviet  player  privately  rolls  a  die  three  times,  for 
each  roll  of  four  or  less  the  player  controls  an  Echo  class 
submarine.  The  submarine  mission  is  to  transit  the  playing 
surface  from  east  to  west.  The  submarines  start  anywhere 

within  five  hexes  of  the  eastern  board  boundary. 
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h.  NATO/Attackers  One  U.S.  Spruance  class  destroyer, 
one  West  German  Hamburg  class  destroyer  and  one  Great  Britain 
Leander  class  destroyer.  The  three  are  deployed  anywhere 
within  three  hexes  of  the  western  board  boundary. 

3.  Sink  the  America 

a.  Scenario  description:  Soviet  submarines  stalk 
U.S.  aircraft  carriers  all  over  the  world.  In  the  event  of 
hostilities,  the  Soviets  can  be  expected  to  immediately  en¬ 
gage  our  forward  deployed  big-deck  aircraft  carriers.  In 
this  scenario,  the  USS  America  is  proceeding  towards  the 
Middle  East  war  zone  escorted  by  two  modem  cruisers  and 
one  escort. 

b.  Date:  July  4,  198I 

c.  Water  conditions:  Erratic 

d.  Map  format:  33  by  90  hexes 

e.  Game  length:  20  game  turns 

f.  Special  rules:  The  aircraft  aboard  the  USS 
America  are  not  considered  operational  during  this  scenario. 
The  helicopters  aboard  the  cruisers  and  escort  are  oper¬ 
ational.  The  scenario  automatically  ends  during  the 
victory  determination  phase  if  the  USS  America  exits  the 
eastern  board  boundary  or  if  both  Soviet  submarines  are 
sunk. 

g.  Soviet/attacker:  Two  Charlie  class  Soviet 
submarines  deployed  anywhere  within  ten  hexes  of  the 
eastern  board  boundary. 


h.  U.S ./defender :  USS  America,  America  class 
aircraft  carrier  deployed  anywhere  on  the  western  board 
boundary,  at  least  tex  hexes  from  both  northern  and  southern 
board  boundaries.  USS  Virginia,  Virginia  class  cruiser; 

USS  South  Carolina,  Virginia  class  cruiser;  USS  T  C  Hart, 
Knox  class  escort;  cruisers  and  escort  are  deployed  within 
5  hexes  of  the  USS  America. 
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SHIP  DATA  SUMMARY 


NO:  INDEX  NUMBER  OF  SHIP  CLASS 

SHIP  CLASS:  NAME  OF  SHIP  CLASS 
SP:  MAX  SPIED 
AD:  ACTIVE  DETECTION  VALUE 

PD:  PASSIVE  DETECTION  VALUE 

SS:  ACTIVE  AND  PASSIVE  SIMULTANEOUS  SEARCHES  lO-NOT  POSSIBLE.  1-POSSIBLE) 
SO:  SPEED  DEGRADATION  OF  PASSIVE  SQNOR  (O-DEGRADAT I  ON,  1-NO  DEGRADATION) 

EV:  EVASION  VALUE 

OE:  DEFENSE  VALUE 
QU:  DURABILITY  POINTS 

NOhNEAPON:  NUMBER  AND  TYPE  OF  WEAPON  CARRIED 
NO-AIRCRAFT:  NUMBER  AND  TYPE  OF  AIRCRAFT  CARRIED 


NO  SHIP  CLASS 

SP 

AD 

PO 

SS 

so 

EV 

DE 

DU 

NO-WEAPON 

UNITED  STATES 

AIRCRAFT  CARRIERS 

1  NIMIT2 

3 

0 

0 

0 

0 

2 

2 

3 

2  AMERICf 

3 

3 

4 

0 

0 

1 

2 

3 

3  KITTY  hAHK 

3 

0 

0 

0 

0 

1 

2 

3 

4  FORESTAL 

3 

0 

0 

0 

0 

1 

2 

3 

S  MIDWAY 

3 

0 

0 

0 

0 

I 

2 

3 

6  ENTERPRISE 

3 

0 

0 

0 

0 

2 

2 

3 

CRUISERS 

7  VIRGINIA 

3 

s 

5 

l 

I 

4 

3 

2 

4-ASROC 
4-MK  46 

8  CALIFORNIA 

3 

5 

V 

I 

1 

4 

3 

2 

S-ASROC 
3-MK  46 

NO-AIRCRAFT 


6-SEA  KING 
6-VIKING 

6-SEA  KING 
6-VIKING 

6-SEA  KING 
6-VIKING 

6-SEA  KING 
6-VIKING 

6-SEA  KING 
6-VIKING 

6-SEA  KING 
6-VIKING 


2-SEA  SPRITE 


2-SEA  SPRITE 
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1 


NO 

SHIP  CLASS 

SP 

AD 

PD 

SS 

so 

EV 

OE 

OU 

no-weapon 

NO-AIRCRAFT 

9 

TRUXTON 

3 

5 

4 

1 

1 

4 

3 

2 

S-ASRQC 

3hMK  46 

2«SEA 

SPRITE 

10 

BELKNAP 

4 

S 

4 

1 

1 

3 

3 

2 

3-ASROC 

4«MK  46 

ImSEA 

SPRITE 

1 1 

BAIN8R10GE 

3 

4 

4 

0 

0 

3 

2 

2 

5« ASROC 

4«MK  46 

1-SEA 

SPRITE 

12 

LEAHT 

4 

4 

4 

0 

0 

3 

3 

2 

SmASROC 

4mMK  46 

13 

AL8ANT 

3 

4 

4 

0 

0 

3 

3 

2 

5«ASR0C 

4mMK  46 

14 

CHICAGO 

3 

4 

4 

0 

0 

3 

3 

2 

5mRSR0C 

4«MK  46 

1-SEA 

SPRITE 

IS 

LONG  BEACH 

4 

4 

4 

0 

0 

3 

3 

2 

SmASROC 

4mHK  46 

ImSEA 

SPRITE 

16 

CLEVELAND 

3 

0 

3 

0 

0 

2 

1 

2 

OESTRQTERS 

17 

AEGIS 

3 

5 

S 

1 

1 

4 

3 

1 

5mASR0C 

2-LAMPS  MK  III 

18 

SPRUANCE 

3 

5 

5 

1 

1 

4 

3 

1 

4mMK  46 
5mASR0C 

1-SEA 

SPRITE 

19 

HITSCHER 

3 

3 

4 

0 

0 

4 

2 

1 

5«ASR0C 

4mMK  46 

20 

FORREST  SHERMAN 

3 

3 

4 

0 

0 

4 

2 

1 

SmASROC 

4mHK  46 

21 

C00NT2 

3 

4 

4 

0 

0 

4 

3 

1 

SmASROC 

4mMK  46 

22 

CHARLES  F.  ADAMS 

3 

4 

4 

0 

0 

4 

2 

1 

5mASR0C 

4mHK  46 

23 

CARPENTER 

4 

3 

4 

0 

0 

4 

2 

1 

5mASR0C 

4mMK  46 

24  GEARING 


4  3  >1  0  0  4  2  I  5-ASROC 

4mMK  46 


! 


NO  SNIP  CLASS 

SP 

AD 

PD 

SS 

SD 

EV 

DE 

DU 

NO-WEAPON 

NO-AIRCRAFT 

FRIGATES 

25  OLIVER  H.  PERRT 

3 

5 

5 

1 

1 

4 

2 

1 

4-MK  46 

2-SEA 

SPRITE 

26  KNOX 

2 

5 

4 

1 

1 

4 

2 

1 

S-ASROC 

4-MK  46 

1-SEA 

SPRITE 

27  SROOKE 

2 

5 

4 

1 

1 

4 

2 

1 

5-ASRQC 

4-MK  46 

1-SEA 

SPRITE 

26  GARCIA 

2 

5 

4 

1 

1 

4 

2 

1 

S-ASROC 

4-MK  46 

1-SEA 

SPRITE 

SUBMARINES (BALLISTIC 

MISSILE) 

29  TRIDENT 

3 

0 

5 

0 

1 

5 

3 

2 

4-MK  48 

30  LHFETETTE 

2 

0 

5 

0 

1 

4 

2 

2 

4-MK  48 

31  ETHAN  ALLEN 

2 

0 

5 

0 

1 

4 

2 

2 

4-MK  48 

32  G.  WASHINGTON 

2 

0 

5 

0 

1 

4 

2 

2 

4-MK  48 

SUBMARINES (ATTACK) 

33  LOS  ANGELES 

3 

5 

5 

1 

1 

5 

3 

2 

3- SUBROC 

4- MK  48 

34  NARWHAL 

3 

4 

5 

1 

1 

5 

3 

2 

3- SUBRQC 

4- MK  48 

35  STURGEON 

3 

4 

5 

1 

1 

5 

3 

2 

3- SUBROC 

4- MK  48 

36  PERMIT 

3 

4 

5 

1 

) 

4 

3 

2 

3- SUBRQC 

4- MK  48 

37  TULIBEE 

2 

4 

5 

1 

1 

5 

3 

2 

3- SUBROC 

4- MK  48 

38  SKIPJACK 

2 

3 

4 

0 

0 

2 

2 

2 

3-SUBROC 

4»MK  48 

39  SKATE 


23400222  3-SUBROC 

4»MK  48 


no  ship  class 


SP  AO  PO  SS  SO  EV  DE  DU  NO-WEAPON 


NO-AIRCRAFT 


SOVIET  UNION 
AIRCRAFT  CAfthlERS 
NO  KIEV 

CRUISERS  ~ 

41  MOSKVA 

42  KARA 

43  KRESTA 

44  KTNOA 
OESTROTERS 

US  KRIVAK 

46  KANIN 

47  KOTUN 

40  KASHIN 

49  SKORT 
FRIGATES 

50  HIRKA 

51  PETTA 


3  4  5  1  1  2 

3  4  5  1  1  3 

3  4  5  1  1  3 

3  3  4  0  0  3 

4  3  4  0  0  3 

4  4  5  1  1  4 

4  3  4  0  0  4 

4  3  4  0  0  4 

4  3  5  1  1  4 

3  3  4  0  0  4 

3  3  4  0  0  4 

3  3  4  0  0  4 


3  3  5-SSN-14 

6-MBU-2S00A 

4-21* 


3  2  3-FRAS-l 

6-M8U-2500A 

4-21* 

3  2  4-SSN-14 

6-MBU-2S00A 

4-0C 

3  2  4-SSN-14 

6-MBU-2500A 

4-DC 

2  2  6-H8U-2S00A 


2  1  4-SSN-14 

6-MBU-2500A 

2  1  6-MBU-2500A 

2  1  6-MBU-2500A 

4-DC 

2  1  6-MBU-2500A 

6-H8U-4500A 
4-DC 

1  1  4-DC 


1  1  7-HBU-2500A 

4-16* 

2  1  7-MBU-2500A 
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io-hormone 


5-HORMONE 


1-HORMONE 


1 -HORMONE 


NO  SHIP  CLASS 

52  RIGA 

SUBMARINES  iBuLL I  ST  1 C 

53  DELTA 

54  TANKED 

55  GOLF 

56  MOTEL 

SUBMARINES  (ATTACK! 

57  CHARLIE 

58  VICTOR 

59  ECHO 

60  NOVEMBER 

GREAT  BRITAIN 
CRUISERS 

61  INVINCIBLE 

62  BRISTOL 

OESTROTERS 

63  WEAPON 

64  SHEFFIELD 

65  AMAZON 

66  LEANOER 

67  ROTHESAT 


SP  AO  PO  SS  SD  EV  DE  DU 
3  3  4  0  0  4  1  1 

MISSILE) 

34500432 

24500332 

23400502 

23400322 

34500432 

44500432 

23400222 

23400222 

33400322 

33400322 

3  5  5  0  0  4  2  1 

3  4  4  0  0  4  2  1 

3  4  4  0  0  4  2  1 

3  3  4  0  0  4  2  1 

3  3  4  0  0  ,4  2  1 


NO-WEAPON  NO. AIRCRAFT 

6.MBU-2500R 

4«0C 

4.21* 

4.21* 

4.21* 

4«2l* 

l.SSN-7 

4.21* 

4.21* 

I.SSN-3 

4.21* 

3.21* 


10.SEA  KING 


3.1KARA 

6»L I MBO 

l.klASP 

4.MK  46 

2-LYNX 

4«MK  46 

l.LTNX 

4.MK  46 

l.LTNX 

6.LIMB0 

4«MK  46 

1 .HASP 

6.LIMB0 

1-HASP 
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NO  SHIP  CLASS 


SP  HD  PD  SS  SD  EV  DE  DU  NO-HEAPON 


NO-AIRCRAFT 


68  TRIBAL  3  3  A  0  0 

69  LEOPARD  3  3  A  0  0 

70  SAL 1 SBUHT  3  3  A  0  0 

71  Blackwood  3  3  a  o  q 

72  WHITBr  3  3  A  0  0 

SUBMARINES  (&ALLIST1C  MISSILE) 

73  RESOLUTION  2  A  A  0  0 

SUBMARINES  (ATTACK) 

7A  SWIFTSUHE  3  A  A  0  0 

75  VALIANT  3  3  A  0  0 

76  DREADNOUGHT  3  3  A  0  0 

77  QBE RON  23300 

CANADA 

OESTROrERS 

7B  TRIBAL  3  A  A  1  1 

79  ANNAPOLIS  3  A  A  0  0 

80  ST.  LAURENT  3  A  A  0  0 

81  MACKERSIE  3  A  A  0  0 

82  REST  I NGQUCHE  3  A  A  0  0 


A  2  1  6«L I MBO  1 "HASP 

A  2  1  6-L I MBO 

A  2  1  6-UMBO 

A  2  1  6-LIMBO 

A  2  1  6-L1MB0 


A  2  2  A-T1GERFISH 

A-MK  20 


A  2  2  A-TIGERFISH 

A-MK  20 

A  2  2  A-TIGERFISH 

A-MK  20 

A  2  2  A-TIGERFISH 

A-MK  20 

522  A-TIGERFISH 
A-MK  20 


A  2  1  A-MK  A6  2-SEA  KING 

A  2  1  A-MK  AS  1-SEA  KING 

A-LIMBO 

A  2  1  A-MK  A6 

A-LIMBO 

A  2  1  A-MK  A6 

5-UMBO 

A  2  1  A-MK  A6 

5-UMBO 
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NO  SHIP  CLASS  SP  AO  PO  SS  SO  EV  DE  OU  NO-NEAPON 

SUBMARINES (ATTACK) 


83  OBERON  2  3 

AUSTRALIA 
AIRCRAFT  CARRIERS 


84  MELBOURNE  2  0 

DESTROYERS 

85  PERTH  4  4 

BS  OARING  3  3 

FRIGATES 

87  O.M.  PEART  3  S 

88  RIVER  3  3 


SUBMARINES  (A  TACK) 

89  OBERON  2  3 

FRANCE 

AIRCRAFT  CARRIERS 

90  CLEMENCEAU  3  4 

CRUISERS 

91  JEANNt  OF  ARC  3  3 

92  COLBERT  3  0 


300522  4-T1GERFISH 
4-MK  20 


0  0  0  2  13 

400421  4-1KARA 
40041  1  4-L 1 HBQ 

S  1  1  4  2  1  4-MK  46 

4  0  0  4  1  1  3» I  KARA 

4-L1MB0 

3  0  0  5  2  2  4-T1GERFISH 

4-MK  20 


4  1  0  2  2  3 

4  0  0  3  2  2 

0  0  0  3  1  2 


NO-AIRCRAFT 


5-SEA  KING 


1-SEA  KING 


10-AUZE 
5-SUPER  FRELON 


6-SUPER  FRELON 
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NO  SHIP  CLiiSS 
DESTROYERS 
93  MONTCALM 
9A  OUPERRE 

95  TOURV1LLE 

96  ACONIT 

97  SUFFREN 

98  LA  GAL1SSONN1 ERE 

99  TARTU 

100  KERSA1NT 

101  CASABLANCA 

FRIGATES 

102  QEST1ENNE 

103  COMM.  RIVIERE 

1  ON  SAVOY ARO 

1  )5  LE  80UL0NNAIS 


SP  AO  PD  SS  SO  EV  OE  DU 

3  5  5  1  1  A  3  1 

3  5  5  1  1  A  3  1 

3  5  5  1  1  A  3  1 

3  5  5  1  1  A  3  1 

3  5  5  1  1  A  3  1 

3  5  5  1  1  A  3  1 

3  A  A  0  0  A  2  1 

3  A  A  0  0  A  2  1 

3  5  A  1  I  A  3  1 


NOxHEAPON 

N0»A1 RCRAFT 

5«MK  L5 

1«LYNX 

5«MK  L5 

1-LTNX 

5*MK  L5 
AxMALAFON 

1«LTNX 

5«MK  L5 
AxMALAF  ON 

6"30SMM 

5«MK  L5 
AxMALAF  ON 

A  *MK  K2 

AkMALAFON 

1«LTNX 

AxHK  K2 

6-375MM 

A»MK  K2 
6»375MM 

A«MK  K2 
A»MALAF  ON 
6-375MM 

2  A  A 


0  A  2  1  A»MK  L5 

6«375MM 


2  3  A  0  0  A  2 


A«MK  K2 
6-305MM 


2  A  A  0  0  A  2 


AnMK  K2 
6-305MM 
A»DC 


2  3  A  0  0  A  2 


A«HK  K2 
6«375MM 
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no  ship  class 

SUBMARINES (BALLISTIC 

SP  AD  PD 

MISSILE! 

SS 

SD 

EV 

DE 

DU 

NQxWEAPON 

106  REDOUBTABLE 

2 

4 

4 

1 

0 

4 

3 

2 

5«MK  E12 

SUBMARINES  (ATTACK! 

107  AG8STA 

2 

4 

5 

1 

0 

5 

3 

2 

5«MK  E 1 2 

108  QAPHNE 

2 

4 

5 

1 

0 

5 

3 

2 

5«MK  E12 

109  ARETNUSE 

2 

0 

4 

0 

0 

5 

0 

2 

5*MK  E 1 2 

110  NARVAL 

2 

0 

4 

0 

0 

5 

0 

2 

5«MK  E 1 2 

ITALY 

CRUISERS 

111  VITTORIO  VENETO 

3 

3 

4 

0 

0 

3 

2 

2 

S«MK  44 

112  ANDREA  00R1A 

3 

3 

4 

0 

Q 

3 

2 

2 

5«MK  44 

OESTROTERS 

113  AUOACE 

1 

4 

4 

0 

0 

4 

3 

1 

5«MK  44 

111  IMPAVIOO 

4 

3 

4 

0 

0 

4 

2 

1 

5«MK  44 

115  1 MPETUOSO 

4 

2 

4 

0 

0 

4 

1 

1 

5«MK  44 
6«MEN0N 

FRIGATES 

116  LUPO 

3 

4 

4 

0 

0 

4 

2 

1 

5*MK  44 

117  ALPINO 

2 

3 

4 

0 

1 

4 

2 

1 

5«MK  44 
SxMENON 

118  OE  CHRI3T0FAR0 

2 

3 

4 

0 

I 

4 

2 

1 

5»MK  44 
6mMEN0N 

119  8ERGAMIN ' 

2 

3 

4 

0 

0 

4 

2 

1 

5nMK  44 

120  CENTAURS 

3 

3 

4 

0 

0 

4 

2 

1 

5«MK  44 
6nMEN0N 

NO*A! rcraft 


9*AB-204 

4«AB-204 

1«SEA  KING 
l-RB-204 


2-AB-204 
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NO  SHIP  ClASS 


SP  AD  PD  SS  SO  EV  OE  DU  ND-WEAPON 


NO-AIRCRAFT 


121  ALBATROS 

2 

D 

0 

0 

0 

4 

0 

i 

5- MK  44 

6- HEDGEHOG 

SUBHARINES  (ATTACK) 

122  SAURO 

2 

3 

4 

0 

0 

5 

2 

2 

5-533MM 

123  EX-TANG 

2 

3 

4 

0 

0 

5 

1 

2 

4-533MM 

124  TOT  I 

2 

3 

4 

0 

0 

5 

1 

2 

5-533MM 

NEST  GERMANT 

OESTROTERS 

12S  LUT JENS 

4 

4 

4 

0 

0 

4 

2 

1 

5-MK  44 
5-ASROC 

126  HAMBURG 

4 

3 

4 

0 

0 

4 

2 

1 

4-533MM 

6-B0F0RS 

375MM 

FRIGATES 

127  KQLN 

3 

3 

4 

0 

0 

4 

2 

1 

4-533MH 

6-BOFORS 

375MM 

128  THETIS 

3 

3 

4 

0 

0 

4 

1 

1 

4-533MM 

6-BOFORS 

375MM 

SUBMARINES (ATTACK! 

129  U-206 

2 

0 

4 

0 

0 

5 

i 

2 

5-MK  37C 

130  U-205 

2 

0 

4 

0 

0 

5 

i 

2 

5-MK  37C 
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APPENDIX  C 


WEAPON  DATA  SUMMARY 


NO:  INDEX  NUMBER  OF  THE  WEAPON 

NAME i  NAME  OF  THE  WEAPON 
ACCURACY:  ACCURACY  RATING 
RANGE:  RANGE  IN  HEXES 

TYPE:  1-MISSILE.  2-M1SSILE/0EPTH  BOMB.  3-TQRPEOO,  U-DEPTH  CHARGE 


NO  NAME 

ACCURACY 

RANGE 

TYPE 

1  SSN- 3 (USSR) 

5 

30 

1 

2  SSN-7  [USSR) 

5 

30 

1 

3  SUBROC  (US) 

6 

25 

2 

W  SSN-1N  (USSR) 

6 

20 

3 

5  21*  (USSRI 

5 

15 

3 

6  16*  (USSR) 

5 

10 

3 

7  MM  MB  (US) 

6 

25 

3 

8  MK  37C  (US.UG) 

5 

15 

3 

9  TIGERFISM  (GB) 

6 

15 

3 

10  MK  20  (GB) 

5 

7 

3 

11  MK  K2  IFR1 

6 

10 

3 

12  MK  15  (FR) 

5 

B 

3 

13  MK  E 1 2  (FR) 

5 

8 

5 

1U  533MM  (IT) 

5 

12 

3 

15  ASROC  IUS.GB) 

6 

7 

3 

16  MK  16  (US) 

5 

20 

3 

17  MK  <44  IUS.GB.  IT) 

1 

12 

3 

18  I  KARA  (GB.  AUS) 

6 

10 

3 

19  HAL AF ON  (FR) 

5 

8 

3 
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NO 

NOME 

ACCURACT 

range 

TTPE 

20 

FRAS-1  (USSR) 

6 

16 

2 

21 

M8U-2500A  (USSRI 

4 

3 

4 

22 

M8U-4500A  i U 5 SR  1 

4 

2 

4 

23 

L  1MB0  (G8) 

3 

1 

4 

24 

HEDGEHOG  (G8) 

3 

1 

4 

25 

375MM  (FR1 

4 

1 

4 

26 

305MM  IFR) 

3 

J 

4 

27 

MENON  l  IT) 

3 

1 

4 

28 

B0FQR5  375MM  (GB) 

3 

1 

4 

29 

DC  (ALL  NATIONS) 

3 

1 

4 

150 


APPENDIX  D 


AIRCRAFT  DATA  SUMMARY 


NOi  INDEX  NUMBER  OF  THE  AIRCRAFT  TYPE 

NAMEi  NAME  OF  1  ME  AIRCRAFT  TYPE 

SPt  MAX  SPEEO 

ADi  ACTIVE  DETECTION  VALUE 

PO:  PA5SIVE  DEIECTtl’N  VALUE 

NO-WEAPON:  NUMBER  AND  TYPE  OF  WEAPON  CARRIED 


NO 

NAME 

SP 

AO 

PV 

NQxWEAPQN 

HELICOPTERS 

I 

HORMONE (USSR! 

1  I 

9 

9 

1 « 1 6" 
3nDC 

2 

SEA  l\  I NG  (NATO) 

1  1 

9 

9 

ImMK 

InDC 

96 

3 

LYNK  (NATOI 

IS 

9 

9 

lxMK 

96 

9 

WASP  (NATOl 

10 

3 

3 

1«MK 

99 

S 

SEA  SPRITE  (USI 

12 

9 

9 

IkMK 

96 

6 

LAMPS  MK  1 1  I  (US) 

16 

9 

9 

)«MK 

96 

7 

WESSEX  (GB) 

12 

3 

3 

IhHK 

96 

8 

SUPER  FREl.ON  (FBI 

19 

9 

9 

1«MK 

99 

9 

A8-209  (IT) 

JO 

3 

3 

)  xMK 

99 

FIXEO  WING 

10 

MAIL  (USSR! 

29 

3 

3 

9-OC 

1 1 

MAY  IUSSR) 

31 

3 

3 

5«0C 

12 

TRACKER  (US) 

IS 

9 

9 

1»MK 

3«0C 

96 
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NO  NAME 


SP  AD  PV  NO-WEAPON 


13  OBION  (US)  3Q  1  4  3«MK  46 

4-OC 

14  VIKING  (US)  35  4  4  1-HK  46 

3»0C 

15  NlMROOIUS)  35  4  4  3«hK  46 

4»0C 

16  ALIZE(FB)  24  3  3  3-MK  44 

4-OC 
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APPENDIX  E 


PRACTICE  GAME 


y  $  scope 

EXECUTION  BEGINS... 

THE  FOLLOWING  OPTIONS  ARE  AVAILABLE  TO  YOU: 


1.  ZERO  ANY  PREVIOUSLY  ESTABLISHED  DATA  BASE. 

2.  EXIT  THE  GAME. 

3.  INITIALIZE  GAME  PARAMETERS  AND  COMMENCE  PLAY. 


ENTER  AN  OPTION. 

>  3 

YOU  ARE  NOW  GOING  TO  ENTER  THE  BASIC  GAME  PARAMETERS. 

ONE  WORD  OF  CAUTION.  THE  PRESENT  GAME  CAN  ONLY  HANDLE  A 
TOTAL  OF  100  WEAPON  SYSTEMS.  INCLUDED  IN  THESE  SYSTEMS 
ARE  SURFACE  SHIPS.  SUBMARINES  AND  AIRCRAFT.  THE  NUMBER  OF 
AIRCRAFT  ARE  DETERMINED  BY  THE  SHIP  CLASS  AS  REFLECTED  IN  THE 
DATA  BASE,  AND  WILL  BE  LOADED  AUTOMATICALLY  WHEN  YOU  SELECT 
THE  SHIP  CLASS.  PRIOR  TO  BEGINNING  THE  LOADING  PROCEDURE 
YOU  SHOULD  ENSURE  THAT  THE  TOTAL  NUMBER  OF  EACH  PLAYERS 
WEAPON  SYSTEMS  DOES  NOT  EXCEED  50. 


ENTER  THE  NUMBER  OF  GAME  TURNS  YOU  WANT  TO  PLAY. 

>2 


ENTER  THE  WATER  CONDITION  (O-NORMAL,  1 -ERRATIC). 

>0 

THE  FOLLOWING  INPUTS  APPLY  ONLY  TO  THE  BLUE  PLAYER 
THE  FIRST  IS  THE  BLUE  PLAYERS  PASSWORD  WHICH  IS 
A  MAXIMUM  OF  6  CHARACTERS.  THE  PASSWORD  IS  IMPORTANT  BECAUSE 
IT  IS  REQUIRED  PRIOR  TO  THE  INPUT  OF  COMBAT,  MOVE  AND  SEARCH 
COMMANDS.  IF  YOU  FORGET  THE  PASSWORD,  YOU  WILL  HAVE  TO  RETURN 
TO  MENU  SELECTION,  AND  RESTART  THE  GAME. 


SELECT  AND  ENTER  YOUR  PASSWORD 
y  blupas 
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YOUR  PASSWORD  WILL  BE  -BLUPAS-  .  IF  YOU  ARE 

READY  TO  CONTINUE  TYPE  Y(ES).  TYPE  N(O)  IF  YOU  WISH  TO 

CHANGE  YOUR  PASSWORD. 

ENTER  THE  NUMBER  OF  BLUE  SURFACE  SHIPS. 

>2 


ENTER  THE  NUMBER  OF  BLUE  SUBMARINES. 

>1 


ENTER  THE  NUMBER  OF  BLUE  SHIPS  THAT  MUST 
BE  DESTROYED  FOR  PREMATURE  GAME  ENDING 

>2 


ECHO 

BLUE  SURFACE  SHIPS  -  2 

BLUE  SUBMARINES  -  1 

NUMBER  OF  BLUE  SHIPS  DESTROYED  TO  END  GAME  -  2 


TYPE  Y(ES)  IF  THESE  VALUES  ARE  CORRECT,  OR  N(O)  IF 
YOU  WANT  TO  REENTER  THEM. 

THE  FOLLOWING  INPUTS  APPLY  ONLY  TO  THE  RED  PLAYER 

THE  FIRST  IS  THE  RED  PLAYERS  PASSWORD  WHICH  IS  A 

MAXIMUM  OF  6  CHARACTERS.  THE  PASSWORD  IS  IMPORTANT  BECAUSE 

IT  IS  REQUIRED  PRIOR  TO  THE  INPUT  OF  COMBAT,  MOVE  AND  SEARCH 

COMMANDS.  IF  YOU  FORGET  THE  PASSWORD,  YOU  WILL  HAVE  TO  RETURN 

TO  MENU  SELECTION,  AND  RESTART  THE  GAME. 


SELECT  AND  ENTER  YOUR  PASSWORD, 
re  dp  as 


YOUR  PASSWORD  WILL  BE  -REDPAS- 
READY  TO  CONTINUE  TYPE  Y(ES). 
CHANGE  YOUR  PASSWORD. 


>y. 


.  IF  YOU  ARE 

TYPE  N(0 )  IF  YOU  WISH  TO 


ENTER  THE  NAME  OF  RED  SURFACE  SHIPS. 

>0 
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ENTER  THE  NUMBER  OF  RED  SUBMARINES. 

>  2 


ENTER  THE  NUMBER  OF  RED  SHIPS  THAT  MUST 
BE  DESTROYED  FOR  PREMATURE  GAME  ENDING. 

>2 


ECHO 

RED  SURFACE  SHIPS  -  0 

RED  SUBMARINES  -  2 

NUMBER  OF  RED  SHIPS  DESTROYED  TO  END  GAME  -  2 


TYPE  Y(ES )  IF  THESE  VALUES  ARE  CORRECT,  OR  N(O)  IF 
YOU  WANT  TO  REENTER  THEM. 

>y 

YOU  ARE  NOW  READY  TO  LOAD  THE  BLUE  WEAPON  SYSTEMS. 

ENTER  THE  BLUE  PASSWORD. 

>blupas 

BLUE  SURFACE  SHIP  NUMBER  1 

ENTER  A  6  CHARACTER  NAME  FOR  THE  SHIP. 

)  tine an 

ENTER  THE  SHIP  CLASS  OF  TINCAN 
>  spruance 

ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  TINCAN 

>500 


THE  SPRUANCE  CLASS  OF  SHIP  HAS  1  SEA  SPRITE  TYPE  AIRCRAFT. 

ENTER  A  6  CHARACTER  NAME  FOR  AIRCRAFT  1 

>  sprul 

BLUE  SURFACE  SHIP  NUMBER  2 

ENTER  A  6  CHARACTER  NAME  FOR  THE  SHIP. 

>escort 

ENTER  THE  SHIP  CLASS  OF  ESCORT 

>  knox 
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ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  ESCORT 
>520 


THE  KNOX  CLASS  OF  SHIP  HAS  1  SEA  SPRITE  TYPE  AIRCRAFT. 

ENTER  A  6  CHARACTER  NAME  FOR  AIRCRAFT  1 

>  knoxl 

BLUE  SUBMARINE  NUMBER  1 

ENTER  A  6  DIGIT  CHARACTER  NAME  FOR  THE  SUBMARINE. 

>lapon 

ENTER  THE  SUBMARINE  CLASS  OF  LAPON 

>  sturgeon 

ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  LAPON 
>510 

YOU  ARE  NOW  READY  TO  LOAD  THE  RED  WEAPON  SYSTEMS. 

ENTER  THE  RED  PASSWORD. 

>  redpas 

RED  SUBMARINE  NUMBER  1 

ENTER  A  6  DIGIT  CHARACTER  NAME  FOR  THE  SUBMARINE. 

>  ivan 

ENTER  THE  SUBMARINE  CLASS  OF  IVAN 

>  Charlie 

ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  IVAN 
>1510 

RED  SUBMARINE  NUMBER  2 

ENTER  A  6  DIGIT  CHARACTER  NAME  FOR  THE  SUBMARINE. 

>boris 

ENTER  THE  SUBMARINE  CLASS  OF  BORIS 
>november 

ENTER  THE  4  DIGIT  HEX  NUMBER  OF  THE  INITIAL 
LOCATION  OF  BORIS 
>1520 


✓ 


156 


BLUE  CALL  TO  STATUS  ROUTINES.  ENTER  THE  BLUE  PASSWORD. 
>  blupas 

THE  FOLLOWING  DISPLAY  OPTIONS  ARE  AVAILABLE  TO  YOU: 


1.  DETECTIONS  OF  ENEMY  PLATFORMS. 

2.  RESULTS  OF  WEAPONS  FIRED. 

3.  DAMAGE  TO  FRIENDLY  PLATFORMS. 

4.  STATUS  OF  FRIENDLY  PLATFORMS  AND  INPUT  OF  INSTRUCTIONS. 

5.  BEGIN  NEXT  GAME  TURN. 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>4 

YOU  HAVE  SELECTED  INDIVIDUAL  PLATFORM  STATUS  DISPLAY  AND 
ASSOCIATED  COMBAT , MOVEMENT  AND  SEARCH  COMMAND  INPUTS. 
ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM. 


>  tine an 


TINCAN  IS  LOCATED  AT  POSITION  500  SPEED  0 
IT  WAS  NOT  ASSIGNED  A  SEARCH  MISSION 
TINCAN  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  MK  46  20 

2  AS  ROC  7 


NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N ( ONE) 

>2 

>502 
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ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>3 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 
DESTINATION  502  SPEED  2 
ACTIVE  AND  PASSIVE  SEARCH  MISSION 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(0)  TO  RETURN  TO  DISPLAY  SELECTION 

>  y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


>  escort 


ESCORT  IS  LOCATED  AT  POSITION  520  SPEED  0 
IT  WAS  NOT  ASSIGNED  A  SEARCH  MISSION 
ESCORT  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  ASROC  7 

2  MK  46  20 


NO  COMBAT  ENTER  N ( ONE )  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>n 

TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 


>2 

>720 
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ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>1 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 

DESTINATION  720  SPEED  2 
ACTIVE  SEARCH  MISSION 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N( 0 )  TO  RETURN  TO  DISPLAY  SELECTION 

>  y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


^lapon 


LAPON  IS  LOCATED  AT  POSITION  510  SPEED  0 
IT  WAS  NOT  ASSIGNED  A  SEARCH  MISSION 
LAPON  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  SUBROC  25 

2  MK  48  25 


NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 


>2 

>512 
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ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>2 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 
DESTINATION  512  SPEED  2 
PASSIVE  SEARCH  MISSION 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(O)  TO  RETURN  TO  DISPLAY  SELECTION 

>y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


>knoxl 


KNOX1  IS  CURRENTLY  NOT  FLYING  -  IT  IS  ASSUMED  YOU 
DESIRED  TO  LAUNCH. 

KNOX1  IS  NOW  BEING  LAUNCHED 


MOVEMENT  NOT  DESIRED  ENTER  N ( ONE)  OTHERWISE  ENTER 
SPEED 

DESTINATION  HEX  IN  THIS  FASHION 


>  12 
>  1720 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 


>0 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 
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NONE  SCHEDULED 

DESTINATION  1720  SPEED  12 

THERE  IS  NO  SEARCH  MISSION  SCHEDULED 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N (0)  TO  RETURN  TO  DISPLAY  SELECTION 

>n 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>5 

THIS  OPTION  WILL  BEGIN  THE  NEXT  GAME  TURN.  TYPE  Y(ES) 

IF  YOU  HAVE  ENTERED  ALL  YOUR  COMBAT,  MOVE  AND  SEARCH 
INSTRUCTIONS  AND  YOU  ARE  READY  TO  COMMENCE  PLAY.  TYPE  N(0) 
TO  RETURN  TO  DISPLAY  SELECTION. 

>  y 

RED  CALL  TO  STATUS  ROUTINES.  ENTER  THE  RED  PASSWORD. 

>  redpas 

THE  FOLLOWING  DISPLAY  OPTIONS  ARE  AVAILABLE  TO  YOU: 


1.  DETECTIONS  OF  ENEMY  PLATFORMS. 

2.  RESULTS  OF  WEAPONS  FIRED. 

3.  DAMAGE  TO  FRIENDLY  PLATFORMS. 

4.  STATUS  OF  FRIENDLY  PLATFORMS  AND  INPUT  OF  INSTRUCTIONS. 

5.  BEGIN  NEXT  GAME  TURN. 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>4 

YOU  HAVE  SELECTED  INDIVIDUAL  PLATFORM  STATUS  DISPLAY  AND 
ASSOCIATED  COMBAT,  MOVEMENT  AND  SEARCH  COMMAND  INPUTS. 
ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM. 


>  ivar. 
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IVAN  IS  LOCATED  AT  POSITION  1510  SPEED  0 
IT  '.’/AS  NOT  ASSIGNED  A  SEARCH  MISSION 
IVAN  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  SSN-7  30 

2  21"  15 


NO  COMBAT  ENTER  N ( ONE )  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N ( ONE ) 

>  1 

>  1511 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>2 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 
DESTINATION  1511  SPEED  1 
PASSIVE  SEARCH  MISSION 


ENTER  Y(ES )  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(O)  TO  RETURN  TO  DISPLAY  SELECTION 

>  y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 
y  boris 
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BORIS  IS  LOCATED  AT  POSITION  1520  SPEED  0 
IT  WAS  NOT  ASSIGNED  A  SEARCH  MISSION 
BORIS  WEAPON  SYSTEM(S) 

TYPE  RANGE 
1  21"  15 


NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N ( ONE ) 


>  2 

>1522 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>1 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 
DESTINATION  1522  SPEED  2 
ACTIVE  SEARCH  MISSION 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(0)  TO  RETURN  TO  DISPLAY  SELECTION  . 

>  n 

SELECT  AND  ENTER  THE  NUMBER  FOR  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>5 
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THIS  OPTION  WILL  BEGIN  THE  NEXT  GAME  TURN.  TYPE  Y(ES) 

IF  YOU  HAVE  ENTERED  ALL  YOUR  COMBAT,  MOVE  AND  SEARCH 
INSTRUCTIONS  AND  YOU  ARE  READY  TO  COMMENCE  PLAY.  TYPE  N(O) 
TO  RETURN  TO  DISPLAY  SELECTION. 


>y 


BLUE  CALL  TO  STATUS  ROUTINES.  ENTER  THE  BLUE  PASSWORD. 
>  blupas 

THE  FOLLOWING  DISPLAY  OPTIONS  ARE  AVAILABLE  TO  YOU: 


1.  DETECTIONS  OF  ENEMY  PLATFORMS. 

2.  RESULTS  OF  WEAPONS  FIRED. 

3.  DAMAGE  TO  FRIENDLY  PLATFORMS. 

4.  STATUS  OF  FRIENDLY  PLATFORMS  AND  INPUT  OF  INSTRUCTIONS. 

5.  BEGIN  NEXT  GAME  TURN. 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>1 


SONOR 

SHIP 

DETECTING 

TYPE 

TYPE 

PLATFORM 

USED 

DETECTED 

LOCATION 

TINCAN 

ACTIVE 

SUBMARINE 

5 12 

ESCORT 

ACTIVE 

SUBMARINE 

512 

ESCORT 

ACTIVE 

SUBMARINE 

1522 

TINCAN 

PASSIVE 

SUBMARINE 

1522 

LAPON 

PASSIVE 

SURFACE 

502 

LAPON 

PASSIVE 

SURFACE 

720 

LAPON 

PASSIVE 

SUBMARINE 

1511 

LAPON 

PASSIVE 

SUBMARINE 

1522 

END  OF  DETECTION  ROUTINE.  TYPE  Y(ES)  TO  CONTINUE. 

>y 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 
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YOU  HAVE  SELECTED  INDIVIDUAL  PLATFORM  STATUS  DISPLAY  AND 
ASSOCIATED  COMBAT , MOVEMENT  AND  SEARCH  COMMAND  INPUTS. 
ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM. 


y tincan 


TINCAN  IS  LOCATED  AT  POSITION  502  SPEED  2 
IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION (S) 
ACTIVE  AND  PASSIVE 

TYPE  LOCATION  METHOD  RANGE 

SUBMARINE  512  ACTIVE  10 

SUBMARINE  1522  PASSIVE  25 

TINCAN  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  MK  46  20 

2  AS ROC  7 


NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N ( ONE ) 


>  3 

>  802 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>3 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT : 

NONE  SCHEDULED 
DESTINATION  802  SPEED  3 
ACTIVE  AND  PASSIVE  SEARCH  MISSION 

I65 


ENTER  Y  (ES )  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(O)  TO  RETURN  TO  DISPLAY  SELECTION 

>  y 

ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 

>  escort 


ESCORT  IS  LOCATED  AT  POSITION  720  SPEED  2 
IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION(S) 
ACTIVE 

TYPE  LOCATION  METHOD  RANGE 

SUBMARINE  512  ACTIVE  9 

SUBMARINE  1522  ACTIVE  8 

ESCORT  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  AS ROC  7 

2  K  46  20 


NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>1522 

>1 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(0) 

>  2 

TO  EMPLOY  ANOTHER  'WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(0) 

>  n 

TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 

>  2 

>72 

YOU  HAVE  EITHER  SET  A  SPEED  HIGHER  THAN  MAX  CAPABLE  OR 
ATTEMPTED  TO  GO  FURTHER  THAN  THE  SPEED  SETTING  WILL  ALLOW 

TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N( ONE) 

>  2 

>  1722 

1 66 


YOU  HAVE  EITHER  SET  A  SPEED  HIGHER  THAN  MAX  CAPABLE  OR 
ATTEMPTED  TO  GO  FURTHER  THAN  THE  SPEED  SETTING  WILL  ALLOW 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N( ONE) 


>  2 

^722 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>3 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

ASROC  WEAPON  TGT  LOCATION  1522 

MK  46  WEAPON  TGT  LOCATION  1522 

DESTINATION  722  SPEED  2 
ACTIVE  AND  PASSIVE  SEARCH  MISSION 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N( 0 )  TO  RETURN  TO  DISPLAY  SELECTION 

>y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


>lapon 


LAPON  IS  LOCATED  AT  POSITION  512  SPEED  2 

IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION(S) 

PASSIVE 


TYPE 

LOCATION 

METHOD 

RANGE 

SURFACE 

502 

PASSIVE 

10 

SURFACE 

720 

PASSIVE 

9 

SUBMARINE 

1511 

PASSIVE 

10 

SUBMARINE 

1522 

PASSIVE 

15 

167 


LAPON  WEAPON  SYSTEM(S) 
TYPE  RANGE 

1  SUBROC  25 

2  MK  48  25 


NO  COMBAT  ENTER  N( ONE )  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>1522 

>1 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(O) 


>  2 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(O) 


>n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 


>2 

>712 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>1 


YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

SUBROC  WEAPON  TGT  LOCATION  1522 

MK  48  WEAPON  TGT  LOCATION  1522 

DESTINATION  712  SPEED  2 

ACTIVE  SEARCH  MISSION 
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ENTER  Y(ES )  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(0 )  TO  RETURN  TO  DISPLAY  SELECTION 

>y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


>  sprul 


SPRU1  IS  CURRENTLY  NOT  FLYING  -  IT  IS  ASSUMED  YOU 
DESIRE  TO  LAUNCH. 


SPRU1  IS  NOW  BEING  LAUNCHED 


MOVEMENT  NOT  DESIRED  ENTER  N( ONE)  OTHERWISE  ENTER 
SPEED 

DESTINATION  HEX  IN  THIS  FASHION 


>  10 

>1502 

ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 


>  0 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 

DESTINATION  1502  SPEED  10 

THERE  IS  NO  SEARCH  MISSION  SCHEDULED 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(0)  TO  RETURN  TO  DISPLAY  SELECTION 

>y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


y knoxl 


KN0X1  IS  LOCATED  AT  POSITION  1?20  AT  SPEED  12 
IT  WAS  NOT  ASSIGNED  A  SEARCH  MISSION 


NO  COMBAT  ENTER  N(ONE)  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>  n 

MOVEMENT  NOT  DESIRED  ENTER  N(ONE)  OTHERWISE  ENTER 
SPEED 

DESTINATION  HEX  IN  THIS  FASHION 


>n 

ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 


>  2 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 

SPEED  IS  ZERO  AT  LOCATION  1720 
A  PASSIVE  SEARCH  MISSION  WILL  BE  CONDUCTED 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N( 0 )  TO  RETURN  TO  DISPLAY  SELECTION 

>n 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>5 

THIS  OPTION  WILL  BEGIN  THE  NEXT  GAME  TURN.  TYPE  Y(ES) 

IF  YOU  HAVE  ENTERED  ALL  YOUR  COMBAT,  MOVE  AND  SEARCH 
INSTRUCTIONS  AND  YOU  ARE  READY  TO  COMMENCE  PLAY.  TYPE  N(0) 
TO  RETURN  TO  DISPLAY  SELECTION. 

>y 


RED  CALL  TO  STATUS  ROUTINES.  ENTER  THE  RED  PASSWORD. 
y  redpas 
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THE  FOLLOWING  DISPLAY  OPTIONS  ARE  AVAILABLE  TO  YOU: 

1.  DETECTIONS  OF  ENEMY  PLATFORMS. 

2.  RESULTS  OF  WEAPONS  FIRED. 

3.  DAMAGE  TO  FRIENDLY  PLATFORMS. 

4.  STATUS  OF  FRIENDLY  PLATFORMS  AND  INPUT  OF  INSTRUCTIONS. 
5-  BEGIN  NEXT  GAME  TURN. 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>1 


SONOR 

SHIP 

DETECTING 

TYPE 

TYPE 

PLATFORM 

USED 

DETECTED 

LOCATION 

IVAN 

PASSIVE 

SURFACE 

502 

IVAN 

PASSIVE 

SURFACE 

720 

IVAN 

PASSIVE 

SUBMARINE 

1522 

END  OF  DETECTION  ROUTINE.  TYPE  Y(ES)  TO  CONTINUE. 

>  y 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>4 


YOU  HAVE  SELECTED  INDIVIDUAL  PLATFORM  STATUS  DISPLAY  AND 
ASSOCIATED  COMBAT , MOVEMENT  AND  SEARCH  COMMAND  INPUTS. 
ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM. 


2  ivan 


IVAN  IS  LOCATED  AT  POSITION  I51I  SPEED  1 
IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION (S) 
PASSIVE 


TYPE 

SURFACE 

SURFACE 

SUBMARINE 


LOCATION 

502 

720 

1522 


METHOD 

PASSIVE 

PASSIVE 

PASSIVE 


RANGE 

14 

13 

11 
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IVAN  WEAPON  SYSTEM(S) 
TYPE  RANGE 

1  SSN-7  30 

2  21"  15 


NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>502 

>1 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(O) 


>2 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(O) 


>n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N ( ONE ) 


>2 

>1311 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

SSN-7  WEAPON  TGT  LOCATION  502 

21"  WEAPON  TGT  LOCATION  502 

DESTINATION  1311  SPEED  2 

ACTIVE  SEARCH  MISSION 
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J 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(O)  TO  RETURN  TO  DISPLAY  SELECTION 

3  y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


}  boris 


BORIS  IS  LOCATED  AT  POSITION  1522  SPEED  2 

IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION (S) 

ACTIVE 

TYPE  LOCATION  METHOD  RANGE 

THERE  WERE  NO  DETECTIONS 
BORIS  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  21 "  15 


NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 


>2 

>  1722 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>1 


YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 


NONE  SCHEDULED 


DESTINATION  1722  SPEED  2 
ACTIVE  SEARCH  MISSION 


ENTER  Y(ES )  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(O)  TO  RETURN  TO  DISPLAY  SELECTION 
>n 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS 

>  y 

YOU  HAVE  MADE  AN  ERROR  IN  YOUR  INPUT  SELECTION.  TRY  AGAIN. 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>5 

THIS  OPTION  WILL  BEGIN  THE  NEXT  GAME  TURN.  TYPE  Y(ES) 

IF  YOU  HAVE  ENTERED  ALL  YOUR  COMBAT,  MOVE  AND  SEARCH 
INSTRUCTIONS  AND  YOU  ARE  READY  TO  COMMENCE  PLAY.  TYPE  N(O) 
TO  RETURN  TO  DISPLAY  SELECTION. 

>y 

THE  ATTACK  BY  ESCORT  FAILED  AS  TGT  RANGE >  WEAPON  RANGE 

YOU  HAVE  JUST  COMPLETED  GAME  TURN  2. 

TYPE  Y(ES)  IF  YOU  WANT  TO  CONTINUE  THE  GAME,  OR  N(O) 

TO  ALLOW  THE  GAME  TO  END. 

>y 

BLUE  CALL  TO  STATUS  ROUTINES.  ENTER  THE  BLUE  PASSWORD. 

■>  blupas 

THE  FOLLOWING  DISPLAY  OPTIONS  ARE  AVAILABLE  TO  YOU: 


1.  DETECTIONS  OF  ENEMY  PLATFORMS. 

2.  RESULTS  OF  WEAPONS  FIRED. 

3.  DAMAGE  TO  FRIENDLY  PLATFORMS. 

4.  STATUS  OF  FRIENDLY  PLATFORMS  AND  INPUT  OF  INSTRUCTIONS. 

5.  BEGIN  NEXT  GAME  TURN. 
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SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>3 

SHIP  STATUS/HITS 

T INC AN  0 

ESCORT  0 

LAPON  0 

END  OF  DAMAGE  DISPLAY  ROUTINE.  TYPE  Y(ES)  TO  CONTINUE. 

>  y 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>2 


TYPE  Y(ES )  FOR  SHIP  RESULTS. 

>y 


SHIP  -  ESCORT  COMBAT  LOCATION  -  1522 

WEAPON  1  TYPE  -  ASROC  PROB (HIT) /DETONATION  -  NO  DETONATION 

WEAPON  2  TYPE  -  MK  46  PROB (HIT) /DETONATION  -  DETONATION 


SHIP  -  LAPON  COMBAT  LOCATION  -  1522 

WEAPON  1  TYPE  -  SUBROC  PROB (HIT) /DETONATION  -  0.6667 

WEAPON  2  TYPE  -  MK  48  PROB (HIT) /DETONATION  -  DETONATION 

END  OF  WEAPON  RESULT  DISPLAY.  TYPE  Y(ES)  TO  CONTINUE. 

>y 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  L 
>1 

SONOR 

DETECTING  TYPE 
PLATFORM  USED 

ESCORT  ACTIVE 
KN0X1  PASSIVE 
KN0X1  PASSIVE 


iIST  OF  DISPLAY  OPTIONS, 


SHIP 

TYPE 

DETECTED 

SUBMARINE 

SUBMARINE 

SUBMARINE 


LOCATION 

712 

712 

1311 


1 
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TINCAN 

PASSIVE 

SUBMARINE 

712 

TINCAN 

PASSIVE 

SUBMARINE 

1311 

ESCORT 

PASSIVE 

SUBMARINE 

712 

ESCORT 

PASSIVE 

SUBMARINE 

1311 

LAPON 

ACTIVE 

SUBMARINE 

1311 

END  OF  DETECTION  ROUTINE.  TYPE  Y(ES)  TO  CONTINUE. 

>  y 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>  4 


YOU  HAVE  SELECTED  INDIVIDUAL  PLATFORM  STATUS  DISPLAY  AND 
ASSOCIATED  COMBAT, MOVEMENT  AND  SEARCH  COMMAND  INPUTS. 
ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM. 


)  tincan 


TINCAN  IS  LOCATED  AT  POSITION  802  SPEED  3 
IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION(S) 
ACTIVE  AND  PASSIVE 

TYPE  LOCATION  METHOD  RANGE 

SUBMARINE  712  PASSIVE  10 

SUBMARINE  1311  PASSIVE  11 

TINCAN  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  MK  46  20 

2  AS  ROC  7 


NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>1311 

>1 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(0) 


>n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 


>  3 

>  1102 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>3 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
C  OMBAT : 

MK  46  WEAPON  TGT  LOCATION  1311 
DESTINATION  1102  SPEED  3 
ACTIVE  AND  PASSIVE  SEARCH  MISSION 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(0)  TO  RETURN  TO  DISPLAY  SELECTION 

>y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


y  escort 


ESCORT  IS  LOCATED  AT  POSITION  722  SPEED  2 

THE  ESCORT  ATTACK  ON  TARGET  LOCATED  AT  1522 

RELEASE  OF  ASROC  RESULTED  IN 
NO  DETONATION  -  NO  DISTURBED  WATER  MARKER 

RELEASE  OF  MK  46  RESULTED  IN 

A  DETONATION (HIT) 


IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION (S) 


ACTIVE  AND 

PASSIVE 

- -  \  —  / 

TYPE 

LOCATION 

METHOD 

RANGE 

SUBMARINE 

712 

ACTIVE 

10 

SUBMARINE 

712 

PASSIVE 

10 

SUBMARINE 

1311 

PASSIVE 

14 

ESCORT  WEAPON  SYSTEM(S) 

TYPE 

RANGE 

1  ASROC 

7 

2  MK  46 

20 
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NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>1311 
>  2 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(O) 


>n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 


>2 

>720 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>3 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT : 

MK  46  WEAPON  TGT  LOCATION  1311 
DESTINATION  720  SPEED  2 
ACTIVE  AND  PASSIVE  SEARCH  MISSION 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N ( 0 )  TO  RETURN  TO  DISPLAY  SELECTION 

>y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


^lapon 


LAPON  IS  LOCATED  AT  POSITION  ?12  SPEED  2 


r~ — - n 


THE  LAPON  ATTACK  ON  TARGET  LOCATED  AT  1522 

RELEASE  OF  SUBROC  RESULTED  IN 

A  DETONATION  WITH  PROBABILITY 
OF  A  HIT  OF  4  OUT  OF  6 


RELEASE  OF  MK  48  RESULTED  IN 
A  DETONATION (HIT) 

IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION(S) 
ACTIVE 

TYPE  LOCATION  METHOD  RANGE 

SUBMARINE  1311  ACTIVE  6 

LAPON  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  SUBROC  25 

2  MK  48  25 


NO  COMBAT  ENTER  N(ONE)  -  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>  1311 

>  2 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(O) 


*  n 

TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N(ONE) 

>  2 

>214 

ENTER  SEARCH  MISSIONS  AS  FOLLOWS : 

0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


>1 
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* 

I  ' 


YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

MK  48  WEAPON  TGT  LOCATION  1311 
DESTINATION  714  SPEED  2 
ACTIVE  SEARCH  MISSION 


ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(O)  TO  RETURN  TO  DISPLAY  SELECTION 

>y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


>  sprul 


SPRU1  IS  LOCATED  AT  POSITION  1502  AT  SPEED  10 
IT  WAS  NOT  ASSIGNED  A  SEARCH  MISSION 


NO  COMBAT  ENTER  N (ONE )  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>  n 

MOVEMENT  NOT  DESIRED  ENTER  N(ONE)  OTHERWISE  ENTER 
SPEED 

DESTINATION  HEX  IN  THIS  FASHION 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 


YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

NONE  SCHEDULED 

SPEED  IS  ZERO  AT  LOCATION  1502 
A  PASSIVE  SEARCH  MISSION  WILL  BE  CONDUCTED 
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ENTER  Y(ES )  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(O)  TO  RETURN  TO  DISPLAY  SELECTION 

>  y 

ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


>  knoxll 

YOU  HAVE  ENTERED  AN  INCORRECT  PLATFORM  NAME. 
REENTER 


>knoxl 


KNOX1  IS  LOCATED  AT  POSITION  1?20  AT  SPEED  0 
IT  CONDUCTED  A  PASSIVE  SEARCH  WITH  FOLLOWING  RESULTS 
SUBMARINE  CONTACT  LOCATION  RANGE 

712  13 

1311  11 

KNOX1  WEAPON  SYSTEM(S) 

TYPE  RANGE 

1  MK  46  20 


NO  COMBAT  ENTER  N( ONE)  OTHERWISE  ENTER 
TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION 


>1311 

>  1 

MOVEMENT  NOT  DESIRED  ENTER  N(ONE)  OTHERWISE  ENTER 
SPEED 

DESTINATION  HEX  IN  THIS  FASHION 


>n 

ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 


>1 

YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

MK  46  WEAPON  TGT  LOCATION  1311 


"M 
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1 


SPEED  IS  ZERO  AT  LOCATION  1?20 

AN  ACTIVE  SEARCH  MISSION  WILL  BE  CONDUCTED 


ENTER  Y(ES )  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N(O)  TO  RETURN  TO  DISPLAY  SELECTION 
>  n 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>  5 

THIS  OPTION  WILL  BEGIN  THE  NEXT  GAME  TURN.  TYPE  Y(ES) 

IF  YOU  HAVE  ENTERED  ALL  YOUR  COMBAT,  MOVE  AND  SEARCH 
INSTRUCTIONS  AND  YOU  ARE  READY  TO  COMMENCE  PLAY.  TYPE  N(O) 
TO  RETURN  TO  DISPLAY  SELECTION. 

>y 

RED  CALL  TO  STATUS  ROUTINES.  ENTER  THE  RED  PASSWORD. 

}  redpas 

THE  FOLLOWING  DISPLAY  OPTIONS  ARE  AVAILABLE  TO  YOU: 


1.  DETECTIONS  OF  ENEMY  PLATFORMS. 

2.  RESULTS  OF  WEAPONS  FIRED. 

3.  DAMAGE  TO  FRIENDLY  PLATFORMS. 

4.  STATUS  OF  FRIENDLY  PLATFORMS  AND  INPUT  OF  INSTRUCTIONS. 

5.  BEGIN  NEXT  GAME  TURN. 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>3 

SHIP  STATUS/HITS 

IVAN  0 

BORIS  SUNK 

END  OF  DAMAGE  DISPLAY  ROUTINE.  TYPE  Y(ES)  TO  CONTINUE. 

>y 
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SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>  2 


SHIP  -  IVAN  COMBAT  LOCATION  -  502 

WEAPON  1  TYPE  -  SSN-7  PROB(HIT)/DETONATION  -  0.1667 

WEAPON  2  TYPE  -  21"  PROB (HIT) /DETONATION-NO  DETONATION 

END  OF  WEAPON  RESULT  DISPLAY.  TYPE  Y(ES)  TO  CONTINUE. 

>y 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>1 

SONOR 

DETECTING  TYPE 

PLATFORM  USED 

IVAN  ACTIVE 

END  OF  DETECTION  ROUTINE. 

>y 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 
ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS. 

>4 


SHIP 

TYPE 

DETECTED  LOCATION 

SUBMARINE  712 

TYPE  Y(ES)  TO  CONTINUE. 


YOU  HAVE  SELECTED  INDIVIDUAL  PLATFORM  STATUS  DISPLAY  AND 
ASSOCIATED  COMBAT, MOVEMENT  AND  SEARCH  COMMAND  INPUTS. 
ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM. 


Mvan 


IVAN  IS  LOCATED  AT  POSITION  1311  SPEED  2 

THE  IVAN  ATTACK  ON  TARGET  LOCATED  AT  502 

RELEASE  OF  SSN-7  RESULTED  IN 
A  DETONATION  WITH  PROBABILITY 
OF  A  HIT  OF  1  OUT  OF  6 
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RELEASE  OF  21"  RESULTED  IN 

NO  DETONATION  -  NO  DISTURBED  WATER  MARKER 

IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION(S) 


ACTIVE 

TYPE 

LOCATION 

METHOD 

RANGE 

SUBMARINE 

712 

ACTIVE 

6 

IVAN 

WEAPON  SYSTEM(S) 

TYPE 

RANGE 

1  SSN-7 

30 

2  21” 

15 

NO  COMBAT 

ENTER  N(ONE)  ■ 

-  OTHERWISE  ENTER 

TARGET  LOCATION 

WEAPON  SYSTEM  NUMBER 

IN 

THIS  FASHION 

>712 

>2 

TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  SYSTEM  NUMBER 
OTHERWISE  ENTER  N(O) 


>  n 


TO  SCHEDULE  MOVEMENT  ENTER 
SPEED 

DESTINATION  IN  THAT  ORDER,  OTHERWISE  ENTER  N( ONE) 


>  2 

>  1111 


ENTER  SEARCH  MISSIONS  AS  FOLLOWS: 
0  NONE  SCHEDULED 

1  ACTIVE  MISSION 

2  PASSIVE  MISSION 

3  ACTIVE  AND  PASSIVE 


YOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS 
COMBAT: 

21”  WEAPON  TGT  LOCATION  712 

DESIGNATION  1111  SPEED  2 
ACTIVE  SEARCH  MISSION 
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ENTER  Y(ES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N( 0 )  TO  RETURN  TO  DISPLAY  SELECTION 

>y 


ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM 


^boris 


BORIS  IS  LOCATED  AT  POSITION  1522  SPEED  2 


NOTE 

DUE  TO  PREVIOUS  AND/OR  CURRENT  DAMAGE  SUFFERED,  MAX  SPEED 
IS  NOW  0  THE  SHIP  HAS  BEEN  HIT  3  TIMES 


IT  HAS  BEEN  HIT  BY  A  TORPEDO 

IT  HAS  BEEN  HIT  BY  A  NON-TORPEDO  WEAPON 

IT  HAS  BEEN  HIT  BY  A  TORPEDO 

IT  WAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION (S) 
ACTIVE 

TYPE  LOCATION  METHOD  RANGE 

THERE  WERE  NO  DETECTIONS 


SINCE  THE  BORIS  HAS  BEEN  SUNK,  NO  COMMAND  INPUTS  CAN  BE 
ACCEPTED 


ENTER  Y(ES )  TO  CONTINUE  WITH  ANOTHER  PLATFORM 
ENTER  N ( 0 )  TO  RETURN  TO  DISPLAY  SELECTION 
>  n 


SELECT  AND  ENTER  THE  NUMBER  OF  A  DISPLAY  OPTION. 

ENTER  A  6  FOR  A  LIST  OF  DISPLAY  OPTIONS 

>5 

THIS  OPTION  WILL  BEGIN  THE  NEXT  GAME  TURN.  TYPE  Y(ES) 

IF  YOU  HAVE  ENTERED  ALL  YOUR  COMBAT,  MOVE  AND  SEARCH 
INSTRUCTIONS  AND  YOU  ARE  READY  TO  COMMENCE  PLAY.  TYPE  N(O) 
TO  RETURN  TO  DISPLAY  SELECTION. 

>y 
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BLUE  RESULTS: 


SHIP 

STATUS /HITS 

FINAL 

LOCATION 

TINCAN 

0 

1102 

ESCORT 

0 

720 

LAPON 

0 

714 

TYPE  Y(ES)  TO  SEE  RED  RESULTS. 

>y 

RED  RESULTS: 


FINAL 


SHIP 

STATUS/HITS 

LOCATION 

IVAN 

SUNK 

13H 

BORIS 

SUNK 

1522 

TYPE  Y(ES)  TO  RETURN  TO  MENU  SELECTION  AND  START  A  NEW 
GAME.  TYPE  N(O)  TO  EXIT  THE  GAME. 

>y 

THE  FOLLOWING  OPTIONS  ARE  AVAILABLE  TO  YOU: 

1.  ZERO  ANY  PREVIOUSLY  ESTABLISHED  DATA  BASE. 

2.  EXIT  THE  GAME. 

3.  INITIALIZE  GAME  PARAMETERS  AND  COMMENCE  PLAY. 

ENTER  AN  OPTION. 

>  2 

EXISTING  THE  GAME. 

R? 
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APPENDIX  F 
PROGRAM  LISTING 


1 

2 

3 

4 

5 

6 
7 

a 

9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
2 1 
22 

23 

24 

25 

26 
2  7 
28 


35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


IMPLICIT  INTEGER  (R-Z) 

DIMENSION  SH1P0A  (130.  181  .  NRMESH  (130,  8) ,  ACOATR  (16.7)  .  NflMEflC  (16. 
16)  .HEPllA  129.31  .NflMENP  (29.6)  .SI  1130)  .S2  U30)  .S3  1 130)  ,S4  (130)  . 

1S5  (I  30  ,56(130)  ,S7  (130)  ,58  1)30)  .59  0  30)  ,S10  (130)  .311  (130)  . 

1512  (13>  l  .5(3  1130)  ,S14  (130)  .SIS  (130)  .S16  (1301 ,517  (ISO)  . 

1 S 1 8  ( 1  3(  )  .  NS  1  ( 1  30)  .  NS 2  1 1  30)  .  NS3  (130),  NS4  (130),  NS5  (130). 

1 NS6  I13L)  ,  NS7  (130).  NS 8  ( 1  30 1  , 

1  INPUT  (701  , ALPHA  (2)  .CHECK  (61  ,  CLASNA  (8) 

EOUl  VAl  ENCE  1SHIP0A  (1 ,  II  ,S!  II)  )  .  (SHIPDR  (1 .21  ,S2  (1)  )  . 

1  (SHI  POL  (1,3)  ,  S3  11)  )  .  (SHIPOA  (1,4)  ,34  111  )  .  (SHIPDR  (1.5)  .S5(l)  )  . 

1  (SH1P0M1.6)  .S6  (1) )  .  (5H1P0R  (1 .7)  ,57  (1)  I  .  (SHIPDR  (1 ,8)  ,S8  (1)  )  . 

1  (SHIPOR  II  .9)  .59  (1) )  .  ISHIPDfi  (1. 101  ,SI0(1) )  .  (SH1P0R11.11)  .511  (1)  )  . 

1  (SHlPOR  (1.  1 2)  .SI  2  11) )  .  (SHIPDR  (1. 13)  .SI  3(1) )  .  (SHIPDR  ( 1 .  14)  ,S14  (1)  )  , 
1  (SHIPDR  (1.  IS)  .SIS  (1) )  .  (SHIPDR  (1. 16)  ,516(1) ) .  (SHIPDR  (1, 17)  ,SI7  (1)  I . 
1  (SHIPDR  (1.  18)  .  Si  a  (1) )  .  (NRMESH  (1.  1)  ,NS1  II) )  .  (NRMESH  (1.2)  .  NS2  (I)  )  . 

1  (NRMESH  (1 . 31  ,NS3  (1 1 )  ,  (NRMESH  (1 ,4)  .NS4  (1) )  .  (NRMESH  (1,5)  ,NS5  (1)  )  . 

1  (NRMESH  (1 .61  .NS6  (II )  .  (NRMESH  (1.7)  , NS7  (1)  )  ,  (NRMESH  (1 .8)  .  NS8  (1)  ) 

COMMON  STATEMENT 

COMMON  PLflTFM  (100,  37)  .DETECT  (100.4)  .HEP  (29. 3)  .HIT  (100.3)  .SUNK  (100) 
1. HATER  (1001  .NAME  (100,6)  .  BUFFER  1 1 00.  81  .BLUPRS  (6)  , REDPRS  (6)  . 
2IPLRT.IR1R, 1SURF, 1  SUB. RDV . POV . REV. PEV. EROTIC. BLUfil R. REDfil R.  BLUSUR. 
3RE0SUR, 8LUSUB. REDSUB.PBAl Al , PBAIR2. PRRIfll , PRRIR2. P8SURI . PBSUR2, 
4PRSUR1 . PRSUR2. PBSUB1 .PBSU82. PRSUB 1 , PRSUB2 

fl IRC RAFT  NAME  DATA  ARRAY 


29 

ORTA 

NflMEflC/' 

HO 

'.  'SE 

\  *H 

'.  ‘HA 

'.'SE 

\  'LA* 

.  'HE*.  'SU 

\  'RB  ' .  2*  'MR  ' , 

30 

I  "TR  ", 

,  'OR'. 

'VI 

• 

• 

•Ml'. 

•AL'. 

•RM'. 

'fl  ’. 

'NX*.  ’ 

SP'.  ’fl  '. 

•MP\  'SS',  *PE 

31 

1  '-2'. 

ML’. 

’Y 

• 

• 

'AC'. 

MO'. 

•K1  '. 

'MR'. 

MZ\  ' 

ON'.  'K1 

2*’  '.'SP'. 

32 

1  ’S  '. 

,  'EX'. 

■R 

• 

• 

'04  '. 

2* ' 

'.  'KE 

’.’N 

’ , *NG ' 

.  '00*.  'E 

\'E  '.'NG'. 

33 

12*  ’ 

'.  'RI 

■ 

MK 

»  • 

• 

\  'FR 

’.3*' 

•  • 
t 

R  ’,4* 

’  ' ,  4*  * 

•.  me'.  •  r.  • 

34 

1.  'El 

'.8*' 

4 

9 

5* 

•  • 

• 

'll*. 

• 

'ON', 

8*'  ' 

/ 

AIRCRAFT  OATA  ARRAY 

QATfl  RCOflTA/ 1 I. 12. 15. 10. 12,16. 12. 14. 10.24,31.15,30.2*35.24.3*4.3. 
12*4. 3, 4, 3*3, 4*4. 3. 3*4, 3, 2*4 . 3. 4. 3*3, 4*4, 3, 6, 2*16, 1 7,  3*1 6. 2*1 7, 
12*29,4*16.17.9*1,4,5,1.3. 1 . 2*3. 2*29. 9*0, 5*29, 3. 1 . 9*0. 3. 4. 3. 2*4/ 

HERPON  NAME  OATA  ARRAY 

OAT R  NRMEHP/2* ’SS ' , *SU 'SS*. *21  * . ' 16 ’ . 2* 'MK '. *TJ  '.4*'MK\  ’53* . 

1  'AS  ' ,  2* 'MK  ’ ,  MK ',  *MA 'FR  2*  'MB  'Ll  '.  'HE*.  '37'.  *30'.  'ME'.  'BO*. 

1  'DC  '  .2*  *N-  *.  *BR '.  *N-  ',2***  '.*  4'.'  3','CE'.'  2'.'  K'.'  I'.'  E*. 

1  '3M',  'RO',2*'  4’,  'AR',  'LA'.  ’AS\2«'U-'.  'MB'.  'DC'.2*'SN'.  'NO*.  'FO', 
1*  '.*3  '.'7  '.  'DC'.  '14*. 2*'  '.*8  ’.  *7C\ *BF\ *0  '.  *2  '. '5  \ 

1’12’.'M  *.'C  '.'6  '.'4  '.'A  '.  'FO'.  ’-1  '.  '25*.  '45',  '0  '.'EH'. 

12«'M  \’N  '.'RS'.'  '.a*'  '.'IS', 9*'  '.'N  *.'  ’,2" '00',  *  '. 
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SI 

1  '0G'.3«' 

'.  ’  3'.'  '.8-'  '.  ' 

H  '. 

11-'  ’.2-'A  ' , 5- *  '.'75' 

•  • 

•  • 

52 

127- '  '.'MM'.'  '/ 

S3 

C 

S4 

c 

WEAPON  data  array 

55 

c 

56 

DATA  WEPOA/5, 4. 2-6,2-5. 6. 5, 6.5 

.6.3-5.6.5.4.6.S.6.2-4.2-3.4.4-3. 

57 

12-30.25.20 

.15.  10,25.2-15.7.10. 

2-8. 

12.7.20.12.10.8.16.3.2.7-1 

• 

SB 

12-1.2. 16-3 

.2. 9-4/ 

59 

c 

60 

c 

ship  name 

ARRArS 

61 

c 

6  2 

DATA  NS  1 / * 

N1  '.  'AH',  'KI  \  'FO'.  ' 

MI  ’. 

'EN\  'VI  *.  'CA'.  'TR'.  'BE'.  ' 

BA*. 

63 

1  ’LE  ' .  ’AL\ 

'CH'.'LO'.'CL',  'AE'. 

•SP' 

.  'MI  '.  'FO'.  'CO*.  'CH'.  'CAM 

•GE'. 

69 

1  ’0L  '.  'KN'. 

'BR*.  'GA'.  'TR'.  'LA'. 

•ET' 

.  'G.  '.  'LO'.  'NA'.  'ST'.  'PE*. 

MU'. 

65 

1  ’SKM  'SK  * , 

'Kl  '.  'MO*.  'KAM  'HR', 

'KY  1 

.  'KR'.  *KA*.  'KO'.  'KA',  'SK'. 

•MI*. 

66 

1  'PE*.  ‘R1  *. 

•DE'.  'TA*.  'GO'.  'HO'. 

'CH' 

.  'VI  '.  'EC'.  'NO'.  'IN',  'BR ' . 

'UE'. 

67 

1  ’SH',  ‘AM*. 

'LEM  'RO*.  'TR'.  'LE*. 

'SA' 

.  'BL*.  *HH'.  'RE'.  'SW.  'VA'. 

'DR'. 

66 

1  •OB’.  'TR'. 

•AN'.  'ST  *,  'MA*.  'REM 

■OB' 

.  'ME  '.  'PE  '.  ’OR'.  '0.  '.'RIM 

'OB'. 

69 

1  'CL'.  '  JE  ‘ . 

'CO'.  'MO',  'DU'.  'TO', 

'AC' 

,  'SU'.  'LA'.  'TA'.  *KE  ' ,  'CA*. 

'OE*. 

70 

1  'CO'.  'SA\ 

•LE'.  'RE*.  'AG'.  'DA'. 

'AR' 

,  'NA'.  *V1  ',  'AN'.  "  AU  ’ ,  2-  '  1 M 

'.  'LU' 

71 

1.  'AL'.  'OE' 

.  'BE'.  'CE',  'AL'.  'SA' 

.  'EX 

'.  'TO'.  *LU * ,  'HA*.  'KO'.  ’TH' 

. 2- *U- 

72 

1  V 

73 

c 

74 

DATA  NS2/  ’ 

Ml  '.  'ER*.  'TT'.  'RE  '.  ' 

DU'. 

'TE*.  'RG'.  'Ll  '.  'UX\  'LK'.  ' 

IN'. 

75 

1 ’AH',  "8A ' . 

•1C*.  'NG'.  'EV.  *G1  '. 

'RU' 

.  MS*.  'RR\  'ON'.  'AR'.  'RP'. 

'AR'. 

7b 

1 'IV'.  'OX'. 

'00'.  *RC'.  'ID',  'FE'. 

'HA' 

.  ’  H\  ’S  ',  'RH'.  ’UR’.  'RM*. 

'Ll’. 

77 

1  'IP'.  'AT'. 

'EV*.  'SK\  *RA  ',  'ES'. 

'NO* 

,  MV*.  'NI  *,  ML  '.  'SH'.  'OR’. 

■RK', 

78 

1  'TT  '.  *GA*. 

'LT'.  'NK  ' ,  'LF'.  ME'. 

'AR' 

.  'CT*.  'HO'.  'VE'.  *V1  '.  'IS'. 

'AP'. 

79 

1  'EF  ’ .  'AZ*. 

'AN*.  'TH’.  '18'.  'OP', 

'LI  ' 

.  'AC'.  ’IT'.  'SO',  MF  \  ’Ll  '. 

'EA'. 

8U 

1  'ER\  MB', 

•NA'.’.  '.'CK’.'ST'. 

•ER' 

,  'LB\  'RT'.  'RI  '.  'M.  ',  'VE*. 

'ER'. 

81 

1  'EM'.  'AM'. 

•LB'.  'NT'.  'PE'.  'UR'. 

’ON’ 

.  *FF  '  G*.  'RT'.  'RS'.  'SA'. 

•ST'. 

82 

1  'MM',  'VO', 

'  8',  'DO'.  'OS',  'PH', 

'ET' 

,’RV,  'TT',  'DR'.  'DA'.  'PA*. 

'PE'. 

83 

1  'POM  'PI  \ 

'  C'.  'RG'.  'NT  \  ’BA'. 

'UR' 

.  '-T\  'T!  ',  'TJ'.  'MB',  'LN', 

'ET'. 

84 

1  '20',  '20  V 

85 

c 

8b 

DATA  NS3/ * 

TZ\  'IC’.'T  '.  'ST'.  • 

AY  *. 

'RP'.  'JN'.  'FO'.  'TO',  'NA'.  ' 

BR'. 

87 

1  'T  '.  'NT '. 

'AG'.  '  B'.  'EL',  'S  '. 

’AN' 

.  'CH'.  'ES',  'll'.  'LE'.  'EN'. 

MN’. 

88 

l’ER’,'  '. 

•KE'.MA'.'EN'.'tE'. 

'N  ' 

.  'AS'.  'AN'.  'HA'.  'GE  '.  'IT'. 

'BE'. 

89 

l’JA'.'E  '. 

'A  * 

.  'AK'.  'N  ',  2-  MN  '.  'Y  '.2-' 

A  \ 

90 

1  '  ',  'A  '. 

'EE'.'  '.'L  '.'Ll'. 

‘OR’ 

,  '  *. 'MB*. 'NC‘. 'TO'.  *0N'. 

91 

1  'FI  'ON'. 

'OE'.  'ES'.  'AL'.  ’AR'. 

'SB ' 

.  'NW*.  'BY  '.  'LU'.  'TS\  'AN'. 

'ON*. 

92 

1 'ON'.  'AL  '. 

■PO’.  'LA*.  ’ER'.  MH'. 

‘ON’ 

.  'OU'.  'H  *.  'NG'.  '  P'.  *R  '. 

'ON*. 

93 

1  'EN'.  'NE  *. 

'ER'.  'CA\  *RR '.  'VI  '. 

'IT' 

.  'RE  ',  'AL  '.  'U  *.  'A1  '.  'BL  '. 

ME'. 

94 

1'.  '.’YAM 

•OU*.  'UB'.  'TA'.  'NE'. 

'HU' 

.’AL'.'OR'.'EA'.'CE'.'VI*. 

MU'. 

95 

1'  ’.'NO'. 

'HR*.  'AM',  'AU\  'TR'. 

•o  • 

.'AN'.'  ',  'EN'.  'UR'.  '  '. 

'IS'. 

96 

1*6  '.'5  V 

97 

c 

98 

DATA  NS4/  ’ 

'.  'A  ',  'MR'.  'AL  '.  ' 

• 

• 

•RI  '.  'IA'.  'RN',  *N  '.  'P  ’.  ' 

ID'. 2« 

99 

1  '  '.  '0  '. 

'EA'.'AN','  '. 'CE'. 

'ER' 

,’T  '.'  \  'S  '.  ME'.  *G  '. 

'  H'.3 

100 

1-'  \'T  ' 

,  *TT  ' .  'AL  *,  ’HI ' ,  ’GE  ' 

.  'L 

.  1 7- 
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1 0 1 
102 

103 

104 

105 

106 

107  C 

108 

109 

110 
1  1  1 
112 
113 
1  14 

1  15  C 

116 

117 

118 

119 

120  C 

121 
122 

123 

124  C 

125 

126 

127  C 

128  C 

129  C 

130 

131 

132 

133  C 

134 

135 
13b 

137  C 

138 

139 

140 

141  C 

142 

143 

144  C 

145 

146 

147  C 

148 

149 

150 


* 

'  '.2-' 

'.  *ER*.  MB'.  'L 

*  ,  * 

*.  ‘EL 

• 

\  'R  \  ‘RT*.  ' 

*  # 

'D  '. 

MR'.  '00' 

.'  '.Ml', 'UR'. 

*T  ' 

,  'OU'. 

'.'Ll'. 'UR*. 

•si  • 

'GO', 

,2*'  *,  *ER ' ,  2*  ' 

*  f 

'CE\ * 

O' 

,  'T  '.  *LH ‘ ,  '£  '.  ' 

LL  '. 

•N  '.'IS' 

.'  '.'NT'.'RN'. 

'NN " 

.  'R1  \ 

•RO 

',  'LO'.  MR*. 2*' 

• 

*SE  '. 

'  *.'10' 

.  '  O'.  '  \  'DO', 

‘OS' 

.2-' 

•  * 

IS*.  'IN'.  'RO'.  ’OS 

• 

1  *  'G  ',  *  *.  'S  \  *G  \4«  *  V 


ORTA  NS5/2*’  \*WK* 

l.'O  ’.3-*  '.'SH'.' 

l'LE',6*'  ’ .  21  «  * 

1  '.'GR'.'  '.' 

1 2«  ’  '.'AU'.'F  ‘.a-* 

1*  ‘ , 'NN  ’ .  '  BL  ' . 4*  ' 

1  M  Min'  •/ 


■  2«  *  '.'SE' 

'F.  •.  "R  • 
'LE',2*'  *, 

•.  'S  'EM' 
\  ‘E  ' ,  2* ' 


•.  '  Ifl* ,2* ' 


\  'S0\2«' 


•.  ‘  V',  ‘OR ' , 2*  ' 


.‘0  ’.2k 


'.  'GE  '.3*'  *  •  *CH  * 

'.  '£  \  ’LE’.  'NG'. 

.  *0  \  1  'ON'.  *E 

*E  ' . 2« '  '.  'RY'. 

'CAME  ,.,vr. 

\  ‘TO’. 


OATn  NS6/  1 9*  *  \  *ER*.  * 

16*'  1 , 21  *  ’  *,15*'  *,*T 

1*  * ,  ' Afl ' , 6*  *  * ,  *NN  * ,4* ' 

1 5* '  * , 'FA ' . 12*  '  */ 


R’,2-’  * .  'PE  ' ,  5*  *  ','N  '. 'TOM'S  \ 

*  '.  'T  \  '  '.  ‘HE  ',  7*  '  '. 

,  *ER  ' ,  '  '.'RIME  '.4*'  *,  'EM ' ,  '  IR ' , 


OATH  NS7/19*' 
121*'  ',17*' 

1 'S  '.'  '.4*' 


'.'HR'.'  '.'OR*. 2-'  ' ,  'RR ' ,  6*  '  ','N  \7»' 

M2*'  '.'  '.'C  ’.6*'  MIE'.U*’  ','E  '.' 

' .  'ET  *  .6*  '  ',  *R0 ' ,  12*  '  V 


DAT  fl  NS8/ 1  9*  '  ','N  \  *  ',  'MS',2*  '  ','T  ',14*'  \2!«' 

1 1 7* '  M2*’  '.8*'  '.'REM2*'  ‘,'0  M9«'  V 


SHIP  OATA  ARRAYS 


ORTA  S 1/9*3. 4, 3. 4. 3. 3. 4, 7*3, 4. 4, 3. 3*2. 3, 3*2. 4*3, 3*2, 4*3, 5*4. 5*3, 
13*2, 3, 4, 2*2, 12*3, 2, 3*3. 2. 5*3. 2, 2. 4. 3*3, 2. 12*3, 9* 2, 2*3. 3*4, 3, 3* 2, 
13,4-2,4.4.3.3.2.2/ 


ORTH  S2/0, 3, 4*0, 4*5. 5*4, 0,2*5, 2*3. 2*4, 2*3, 4*5, 4*0, 5, 4*4, 2* 3. 3*4, 
12*3. 4, 7*3. 2*4, 2*3, 2*4 ,2*3. 2*3, 5, 2*4, 7*3, 2 *4, 3*3, 5*4. 3, 0.4. 3. 5, 3, 3, 
14. 3.  0.6*5. 2*4, 5,  4, 3. 4. 3, 3*4, 2*0, 2*3. 4. 3. 2, 4. 4*3, 0.3*3. 4, 3*3. 2*0/ 


ORTH  S3/0. 4. 4*0. 5, 8*4, 3. 2*5. 6*4, 5. 3*4, 9*5, 2*4, 3*5, 2*4, 5. 2*4. 5. 4*4, 
12*5,2*4, 2*5, 2*4, 2*4, 5, 1 3*4 , 3. 5*4 , 3, 0,2*4 .5,4,3, 2*4. 0, 6*5, 8*4 , 2*5, 

1 12*4,0, 3*4, 6*4/ 

OflTfl  54/6*0,4*1. 6*0, 2*1 .6*0, 4*1 ,4 *0.5*1 .2*0, 3*1 ,2*0, 1.2*0. 1 . 12*0, 

1 17*0, 1,5*0, 3*0, 1,2*0, 1,2*0, 6*1, 2* 0,2*1 ,3*0, 3* 1,2*0. 14*0, 6*0/ 

ORTA  55/6*0, 4* 1.6*0,  2*1 ,6*0, 13*1,2*0,3*1 .2*0, 1.2*0, 1. 12*0, I  7*0, 

11, 5*0, 3*0, 1,2*0, 3*0, 6*1, 2*0, 1,9*0, 6*0, 2*1, 6*0, 6*0/ 

OATH  S6/2. 4*1 .2.  3*4, 6*3, 2. 1 2*4, 5. 3*4, 3*5, 4 . 5. 2*2, 2. 4*3, 9*4 . 3, 5. 3. 
12*4.2*2,2*3, 14*4,5,5*4,5.2.4*4,5,2.2*3, 14*4,4*5,2*3,9*4.3*5. 
14*4,2*5/ 
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151 

152 

153 

154 

155 

156 

157 
156 
169 
160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 
160 
181 
162 

183 

184 

165 

166 

167 

168 
169 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


C 

DAT 8  S7/6-2. 4-3. 2. 4-3. 1.2-3. 2-2. 3. 7-2, 3. 3-2, 5-3. 2-2, 4-3. 5-2. 2-1, 

12. 1 .2-  3. 0.2. 2-3. 2-2. 17-2.6-2,1.2.1.2. 1 .2. 2-2. 1 . 6-3. 2-2. 3. 4-2. 3-3. 
12-0,2-2.3.2. 1.5-2. 0.2. 2- 1.3-2. 3-1/ 

C 

DATA  58/6-0.9-15.0, 15.16,6-15.16, 3-15.4-7.7-3.4.20. 2-4.21,4.3-21 . 
129. 3-21 .4-5. 2. 5. 1,5.0.18.3-16,7-23.5-9.5-16.9.0. 18,23.16. 18.9.3-0. 

15- 12.4-11 . 12,3-1 1 .5-13. 1 1-17.3-14. 17.3-14,2-8/ 

C 

DATA  S9/6-Q, 4, 2-5, 3, 5-5. 0. 5. 4 . 6-5. 4. 3-5. 4-4. 7-3. 5. 3. 2-4. 6. 4 . 3-6. 

14.2- 7,6.4-4.1.4.1.3,0.3. 3-4 . 7-6. 5-4 . 6-4 . 0. 3-4 . 3. 4 . 3-0. 5-5. 8-4 . 5-5. 
112-5,4.5.5. 3-4. 2-5/ 

C 

OAT A  SI 0/6-0, 9- 16, 2-0. 15.6-16.0.3-16.4-0.7-7.4-21 .0.21.0.29.22.0, 

1 6. U. 29. 4-0. 5. 0.5. 0.0. 23. 3-0. 16. 6-0,5-10,0.4-23, 10,4-0.23, 10.5-0. 
14-19.2-2S. 19. 25. 2-26. 25. 5-0. 4-0. 27. 0.2-27. 0,27, 24. 3-0. 15. 3-28. 2-0/ 
C 

DATA  51 1/6-0, 4. 2-3. 6-4. 2-0. 5. 6-4. 0.3-4. 4-0. 7-4. 4-6. 0.6. 0.4. 6. 0.4. 

10.4.4- 0.4.0.4.0.0.6.3-0.4.6-0.5-4.0.2-4.2-5.4,4-0.2-4.5-0.4-4.2-6. 

14. 4- 6. 5-4. 4-0. 6. 0.5, 6. 0,2-6, 3-0. 5. 3*6, 0.0/ 

C 

OAT A  SI  2/39-0. 2-5. 2*29. 4-0. 29. 12-0. 17-0. 6-0. 6-0. 6-0. 26.4-0, 2S. 2-0. 
129.6-0. 14-0.6-0/ 

C 

OAT A  SI 3/39-0. 4-4. 4-0. 4. 12-0, 1 7-0, 6*0. 8-0. 6-0. 6. 4-0. 6. 2-0, 4 . 6-0. 
114-0,6-0/ 

C 

OATA  S14/6-2, S-5, 2-0, 2-5, 0.6, 5. 6-0, 4-5, 11-0, 4-1, 17-0, 2, 4. 3- 3. 3-4, 
19-0.2-2.4-0.2.2-0.2.2-0, 1 6. 8.0, 3-3. 2-0. 3. 12-0.2-9, 2. 9. 2-0. 9. 7-0. 

16- 0/ 

C 

DATA  515/6-6.3-2,2*1,2-0,2-1.0.2, 1.6-0,2.3-1,11-0. 10,5,2-1.  17-0, 

1 10. 1 .2. 5- 1.9-0, 2. 2-1 .3-0. 5. 2-0. 1,2-0. 10. 6, 0. 3-1 . 2-0. 1 . 2-C, 
110-0,9.4, 1 . 1.2-0, 2-2, 11-0/ 

C 

OATA  S16/6-14, 33-0, 21-0. 17-0. 6-0, 6-0, 8. 20-0, 14-0.6-0/ 

C 

OATA  S17/6-6. 33-0, 21-0, 17-0, 6-0, 6-0. 5. 20-0. 14-0,6-0/ 

C 

DATA  Si 8/6- 3. 10-2, 12-1, 1 1-2.3, 4-2, 8-1 .8-2, 2-2, 10-1, 5-2,5- 1.2,3, 
14-1, 2, 3, 2*2. 13-1, 5- 2, 2- 2, 9-1, 3- 2, 4-1 ,2-2/ 

OATA  MAXPL  T/ 1 00/ 

OATA  ALPHA/  *T  *,  '*7 
C 

C  EQUALIZE  HEPDA  AND  HEP  30  HEP  CAN  BE  COMMONED 
C 

DO  81  i « 1 , 29 

00  80  J-1,3 

HEP  (I.  Jl-HEPOA(I.J) 

80  CONTINUE 
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201 

81 

CONTINUE 

202 

C 

203 

C 

initialize  the  game  parameters 

204 

c 

205 

99 

turn-0 

206 

BLUA1R*0 

2U7 

BLUSUR*0 

20  a 

8LUSU8-0 

203 

RE0A1R-0 

2)0 

RE05UR*0 

21  1 

REQSUB-0 

2)2 

C 

213 

C 

INITIALIZE  THE  ARRAT  PLATFM  AND  OTHERS 

214 

c 

2lS 

00  83  I-l.MAXPLl 

216 

DO  82  J» 1 . 37 

217 

platfmm.  Jl  *0 

218 

82 

continue 

219 

HATER  1 1 ) ■- 1 

220 

OETl  CT  (I.  1)  --1 

221 

HIT  :  1 . 11 «-l 

222 

SUN).  (I)  *-l 

223 

8uFf  ER  (I.  1)  -0 

224 

BUFf  ER  (1,21  -0 

225 

BUFI  ER  (1 . 3)  -0 

226 

BUFf  ER(1, 41-0 

227 

BUFF  ER  C I .  SI -0 

2  ’8 

BUFf  ER  (1 ,6)  -1 

229 

BUFf  ER  (1 , 71  -1 

230 

BUFf  ER  1 1 , 8)  -1 

231 

83 

CON: InUE 

232 

C 

23  3 

C 

HENU 

234 

C 

235 

1 

HR  11  E  (S.  100) 

236 

100 

FORf.AT  l '  1  THE  FOLLOHING  0P1  IONS  ARE  AVAILABLE  TO  TOU« 

237 

1///.'  1.  ZERO  ANT  PREVIOUSLT  ESTABLISHED  DATA  BASE.’ 

238 

I//.  ■  2.  EXIT  THE  GAME. 

X 

239 

I//.'  3.  INITIALIZE  GAME  PARAMETERS  AND  COMMENCE  PLAT.*. 

, 

240 

1///,  ’  ENTER  AN  OPTION.  ’) 

> 

241 

REATM5.200)  INPUT 

242 

200 

FOR)  RT  I70R1 1 

243 

CALI  NONVRT  (INPUT,  INDEX) 

w 

244 

IF  (INDEX. NE.  11  GO  TO  2 

% 

245 

20) 

FOR)  AT  (All 

246 

C 

24  7 

HRITE  16, 1  1 11 

248 

1  1 1 

FORMAT  1'lTHE  OPTION  TOU  HAVE  SELECTED  HILL  DESTROY  ANT  FILES  THAT* 

249 

1./.'  TOU  HAVE  ALREADY  CREATED.  IF  TOU  CONTINUE.  TOU  MILL  HAVE'. 

v 

250 

1/,’  TO  RELOAO  ALL  USER  INPUTS.  TTPE  TIES)  TO  ERASE  THE  FILES.’. 

»< 


1  / . *  aft  TYPE  N(Ol  IF  YOU  WANT  TO  RETURN  TO  MENU  SELECTION  WITHOUT  * , 
1/,  •  ERASING  THE  FILES.  *) 

READ  (5,200)  INPUT 
CALL  1NVRT1 I1NPUT. Al 
IF  IM.  NE .  ALPHA  111)  GO  TO  I 
GO  0  99 

IF  (INDEX. EQ. £1  GO  TO  9999 

LOAD  GAME  PARAMETERS 

HALF-MAXPLT  — 

HALF*HALF/2 

WAITE  (6. 120)  MAXPLT.HALF 

FORMAT  CIYOU  ARE  NOW  GOING  TO  EfTEfi  THE  BASIC  GAME  PARAMETERS.1. 
I/.1  ONE  WORD  OF  CAUTION.  THE  PFESENT  GAME  CAN  ONLY  HANDLE  A*. 

I/.1  TOTAL  OF  MU.1  WEAPON  SYSTEMS.  INCLUOED  IN  THESE  SYSTEMS", 
l/.1  ARE  SURFACE  SHIPS.  SUBMARINES  AND  AIRCRAFT.  THE  NUMBER  OF1. 
I/.1  AIRCRAFT  ARE  DETERMINED  BT  THE  SHIP  CLASS  AS  REFLECTED  IN  THE1 
l./.1  DATA  BASE.  AND  WILL  BE  LOADED  AUTOMATICALLY  WHEN  YOU  SELECT1. 
]/.  1  THE  SHIP  CLASS.  PRIOR  TO  BEGINNING  THE  LOADING  PROCEDURE1. 
I/.1  YOU  SHOULD  ENSURE  THAT  THE  TOTAL  NUMBER  OF  EACH  PLAYERS1. 

I/.1  WEAPON  SYSTEMS  DOES  NOT  EXCEED  MW.1.1! 

WRITE  (6. 1211 

FORMAT  l////. 1  ENTER  THE  NUMBER  OF  GAME  TURNS  YOU  WANT  TO  PLAY. *1 

READ  (5.  2001  INPUT 

CALL  NONVRT  (INPUT. TURN) 

WRITE  (6.  1671 

FORMAT  (//. 'OENTER  THE  WATER  CONDITION  (O-NORMAL.  1-ERRRTI  C)  .  *) 

READ  (5. 200)  INPUT 

CALL  NONVRT  (INPUT, ERAT1C) 

IF  IERAT  IC .  EQ.  0.  OR.ERAT I C.  EQ.  1)  GO  TO  5 
WRITE  (6.168) 

FORMAT  (/. 1  TOU  HAVE  MADE  AN  ERROR  ENTERING  THE  MATER  CONDITION.1) 
GO  TO  166 
WRI  TE  (6.  122) 

FORMAT  ('1THE  FOLLOWING  INPUTS  APPLY  ONLY  TO  THE  BLUE  PLATER1, 

I/.  1  THE  FIRST  IS  THE  BLUE  PLATERS  PASSWORO  WHICH  IS*. 

I/,1  A  MAXIMUM  OF  6  CHARACTERS.  THE  PASSWORD  IS  IMPORTANT  BECAUSE1 
I./.1  IT  IS  REQUIRED  PRIOR  TO  THE  INPUT  OF  COMBAT,  MOVE  AND  SEARCH1 
l./.1  COMMANOS.  IF  YOU  FORGET  THE  PASSWORD,  TOU  WILL  HAVE  TO  RETUR 
IN1./,1  TO  MENU  SELECTION,  AND  RESTART  THE  GAME. ’,///, 1  SELECT  AND 
1ENTER  TOUR  PASSWORD1) 

READ  (S,  2001  INPUT 

CALL  INVRT6 (INPUT, BLUPRS) 

WRITE  (6. 123)  BLUPRS 

FORMAT  l//.1  YOUR  PASSWORD  WILL  BE  - 1 ,6A1 . *•  .  IF  YOU  ARE*. 

I/.1  READY  TO  CONTINUE  TYPE  T  (ES)  .  TYPE  N  (0)  IF  TOU  WISH  TO1. 

I/.1  CHANGE  TOUR  PASSWORD.1) 

READ  (5,200)  INPUT 
CALL  INVRT1  (INPUT, Al 


301  1 F  (A. EQ. ALPHA (21  I  CO  TO  5 

30«>  WRITE  16.  124) 

303  124  FORMAT  l//. 'QENTER  THE  NUMBER  OF  BLUE  SURFACE  SHIPS. *1 

304  READ  15,200)  INPUT 

305  CALL  NONVRT  1 1 NPUT . BLUSUR) 

30b  WRITE (6. 126) 

307  126  FORMAT  I//. ’QENTER  THE  NUMBER  OF  BLUE  SUBMARINES.’) 

308  READ  15,200)  INPUT 

309  CALL  NONVRT  1  INPUT. BLUSUB) 

310  WRITE  (6,  t  27) 

311  127  FORMAT (//. ’OENTER  THE  NUMBER  OF  BLUE  SHIPS  THAT  MUST ’ . 

312  I/.’  BE  OESTROrEQ  FOR  PREHATURE  GAME  ENDING. ’I 

313  REAO  15,200)  INPUT 

3)4  CALL  NONVRT (INPUT, BLUDES) 

31  5  WRITE  16. 1281  BLUSUR, BLUSUS. BLUDES 

316  128  FORMAT  l//.’  ECHO’.//.’  BLUE  SURFACE  SHIPS  -  ’.14. 

317  1/.’  BLUE  SUBMARINES  -  ’.14. 

318  1/,’  NUMBER  OF  BLUE  SHIPS  DESTROTEO  TO  END  GAME  -  ’.14) 

319  WRITEI6.129I 

320  129  FORMAT  (//.  ’OTTPE  TIES)  IF  THESE  VALUES  ARE  CORRECT.  OR  N  (0)  IF’. 

321  1/.’  TOU  WANT  TO  REENTER  THEM.’) 

322  REAO  (S. 200)  INPUT 

323  CALL  1NVRT1  (INPUT, A) 

324  IF  (A. EQ. ALPHA  (2)1  GO  TO  5 

325  6  WRITE  (6,  1301 

32b  130  FORMAT  1’lTHE  FOLLOWING  INPUTS  APPLT  ONLT  TO  THE  RED  PLATER’, 

32?  I/.’  THE  FIRST  IS  ThE  RED  PLATERS  PASSNORD  WHICH  IS  A  *. 

323  1/.’  MAXIMUM  OF  6  CHARACTERS.  THE  PASSWORD  IS  IMPORTANT  BECAUSE’. 

329  1/.’  IT  IS  REQUIRED  PRIOR  TO  THE  INPUT  OF  COMBAT,  MOVE  AND  SEARCH’ 

300  I./,’  COMMRNOS.  IF  TOU  FORGET  THE  PASSWORD.  TOU  WILL  HAVE  TO  RETUR 

331  IN’,/.’  TO  MENU  SELECTION.  AND  RESTART  THE  GAME. ’,///. ’  SELECT  AND 

332  1ENTER  TOUR  PASSWORD.’) 

333  REAO  (5. 2001  INPUT 

334  CALL  INVRT6  UNPUT. REOPAS) 

335  WH1TE16.I3II  REOPAS 

336  131  FORMAT  l//.’  TOUR  PASSWORD  WILL  BE  -’.6A1,’-  .  IF  TOU  ARE’. 

33/  1/,’  READY  TO  CONTINUE  TYPE  TIES).  TYPE  N(0)  IF  YOU  WISH  TO’, 

333  1/.'  CHANGE  TOUR  PASSWORD.’) 

339  REAO  (5,2001  INPUT 

340  CALL  INVRTl (INPUT. A) 

341  IF  (A. EQ. ALPHA  (21 )  GO  TO  6 

342  WRITE  (6.  1321 

343  132  FORMAT  (//,  ’OENTER  THE  NUMBER  OF  RED  SURFACE  SHIPS. ’I 

344  REAO  (5. 2001  INPUT 

34 5  CALL  NONVRT (INPUT. REDSUR) 

346  WRITE  (6. 1351 

34  7  1  35  FORMAT  (//, ’OENTER  THE  NUMBER  OF  RED  SUBMARINES.’) 

348  READ  (5. 200)  INPUT 

349  CALL  NONVRT (INPUT, REDSUB) 

350  WRITE  (6.  136) 


351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

36  7 
3b8 

369 

370 

371 

372 

37  3 

374 

375 

376 

377 
3  78 

379 

380 

381 

382 

383 
364 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 
398 

397 

398 

399 

400 


136 


137 


138 


C 

C 

C 


c 

c 

c 

7 


141 

142 

143 


FORMAT  (//. ’OENTER  THE  NUMBER  OF  RED  SHIPS  THAT  MUST’, 

1/.*  BE  OESTROTEO  FOR  PREMATURE  GAME  ENDING.’) 

READ  15.  2001  INPUT 

CALL  NONVRT  (INPUT, REDOES) 

WRITE  16. 137)  REDSUR.REDSUB. REDOES 

FORMAT!//,*  ECHO'.//.’  RED  SURFACE  SHIPS  -  \  14. 

1/.*  RED  SUBMARINES  -  ’.14. 

1/,*  NUM8ER  OF  RED  SHIPS  DESTROTED  TO  END  GAME  -  ’.14) 

WRITE (6.1381 

FORMAT  (//, 'OTTPE  T  (ESI  IF  THESE  VALUES  ARE  CORRECT.  OR  N  (0)  IF’, 
1/.  ’  TOU  WANT  TO  REENTER  THEM.’) 

READ  15.200)  INPUT 
CALL  1NVRT 1 (INPUT. A) 

IF  (A.EQ.  ALPHA  (2!  )  GO  TO  6 

SET  VARIABLES  TO  BE  USED  AS  POINTERS  TO  THE  PLATFM  ARRAY 

PRSUB2-MAXPLT 
PRSU81»MAXPLT-RE0SU8*1 
P8SUB2*PRSUB 1  - 1 
P63UB1*P8SU62-BLUSUB-M 
PRSUR2-PBSU81-1 
PRSURl«PRSUh2-RE0SUR-M 
P8SUR2«PRSUR 1 - 1 
P8SUR1 *PBSUR2-BLUSUR» 1 

LOAO  BLUE  WEAPON  SYSTEMS 

WRITE  (6.  1401 

FORMAT (’ITOU  ARE  NOW  READY  TO  LOAD  THE  BLUE  WEAPON  SYSTEMS.’. 
I//.’  ENTER  THE  BLUE  PASSWORD.*) 

RE AO  (5, 200)  INPUT 
CALL  INVRT6  l  INPUT. CHECK) 

A-0 

DO  141  I » 1 . 6 

IF  (CHECK  (I)  .NE.BLUPAS  (I)  )  A-l 
IF (A.EQ. I)  GO  TO  142 
CONTINUE 

IF  IA.NE. II  GO  TO  8 
WRITE  (6.  143) 

FORMAT  (//,’  TOU  HAVE  MADE  AN  ERROR  IN  TOUR  PASSWORD.  TYPE  TIES) 
1/.’  IF  YOU  WANT  TO  TRY  AGAIN.  OTHERWISE  TOU  WILL  BE’, 

1/.’  RETURNED  TO  MENU  SELECTION.’) 

REAO  15.200)  INPUT 
CALL  INVRT1 (INPUT, A) 

IF  (A.EO.  ALPHA  (1)  1  GO  TO  7 

GO  TO  1 

5HIPN0-Q 

BLUAIR-0 

IF  (BLUSUR.  EQ.  0)  GO  TO  170 


194 


•  ✓ 


8 


101 

DO  165  SHIP-PBSUR1 , P8SUR2 

102 

SHlPNQ-SHI PNQ*  1 

103 

WRITE (6, 111)  SM 1  PNG 

101 

111 

FORMAT C18LUE  SURFACE  SHIP  NUMBER  Ml.// 

. ’  ENTER 

A  6  CHARACTER 

105 

1  *  NAME  FOR  THE  SHIP.  ’) 

106 

REAO  (5.200)  INPUT 

107 

CALL  INVRT6  (INPUT. CHECK! 

108 

DO  115  J-1.6 

109 

NAME  1SM1P.  J1  .CHECK  <J1 

110 

IIS 

CONTINUE 

— 

111 

117 

WRITE  (6, 1161  CHECK 

112 

116 

FORMAT COENTER  THE  SHIP  CLASS  OF  \6A1) 

113 

READ  15. 202)  CLASNA 

111 

202 

FORMAT  18A2) 

115 

CALL  SCLASS (CLASNA, CLASIN, NAHESH) 

116 

IF  (CLASlN.EO.Ol  WRITE  16, 118) 

117 

118 

FORMAT  COTOU  HAVE  MADE  A  MISTAKE.  ENTER 

THE 

SHIP 

CLASS  WITH  NO 

118 

1/.'  LEADING  BLANKS  USING  A  PROPER  CLASS 

NAME 

.  *1 

119 

IF  (CLASIN. EQ.01  GO  TO  117 

120 

PL AT FM (SHIP. 30) -CLASIN 

121 

WRITE  (6. 119)  CHECK 

122 

119 

FORMAT  COENTER  THE  1  DIGIT  HEX  NUMBER  OF 

THE 

INITIAL  \ 

123 

1/.  *  LOCATION  OF  \6A1) 

121 

READ  (5.  2001  INPUT 

125 

CALL  NONVRT  (INPUT.  A) 

126 

PL AT FM (SHIP, 31 -A 

127 

PLATFM  (SHIP, 8) »1 

128 

PLATFM  (SHIP, 20)  -  SMI PDA  (CLASIN,  18) 

129 

PLATFM (SHIP, 121  -SH1P0A (CLASIN.  1) 

130 

PLATFM1SHIP.  13)  -SHIPDA  (CLASIN,  2) 

131 

platfm (Ship,  id  -shipoa iclasin, 3) 

132 

PLATFM  (SHIP, 151 -SHIPDA (CLASIN, 9) 

133 

PLATFM  (SHIP.  161  -SHIPOA  (CLASIN.  11) 

131 

PLATFM  (SHIP.  17)  -SHIPDA  [CLASIN.  13) 

135 

PLATFM  (SHIP.  18)  -SHI PDA  ICLASIN,  6) 

136 

PLATFM  (SHIP.  19)  -SHIPOA  ICLASIN, 7) 

137 

PLATFM  (SHIP, 21)  -SHIPDA  (CLASIN, 81 

138 

PLATFM (SHIP, 22) -SHIPDA  (CLASIN, 10) 

139 

PLATFM  (SHIP, 23)  -SHIPOA  (CLASIN,  12) 

110 

PLATFM  (SHIP, 21) -SHIPDA (CLASIN, 1) 

111 

PLATFM (SHIP. 25) -SHIPDA  ICLASIN, 5) 

112 

PLATFM  (SHIP, 26) -SHIPDA (CLASIN,  11) 

113 

PLATFM  (SHIP,  27)  -SHIPDA  (CLASIN,  16) 

111 

PLATFM  (SHIP. 28)  -SHIPDA  (CLASIN,  15) 

115 

PLATFM  (SHIP, 29)  -SHIPDA  ICLASIN,  17) 

116 

C 

117 

C 

118 

C 

LORO  BLUE  WEAPON  SYSTEMS  -  AIRCRAFT 

119 

c 

150 

150 

DO  155  1-26,27 

195 


45 1 

IF  (PLflTfMtSHlP.lt  .EQ.Q)  GO  TO  165 

452 

AC  1 NOX-PLATFM  ISH1P, 1) 

453 

MB  1  1£  16 ,  1 5 1 1  CLASNA.  PL ATFM  (SHI  P.  I +2)  .  (NAME  AC  (AC  1  NDX .  J)  .  J- 1 . 6) 

454 

!  5 1 

FORMAT (//.  *OTHE  *,8A2,  *  CLASS  OF  SHIP  MAS  * ,  1 2,  1  X.  6A2.  1 X.  *TTPE  * 

455 

1  ’  AIRCRAFT.  *1 

456 

PLATFH (SHIP, 1*51  -8LUAIR-1 

457 

BLUHIR-BLUAIR-PLATFMISHIP.  I •» 21 

45b 

PLATFM  (SHIP,  I -»  7J  -BLUAIR 

459 

ACOUNT-O 

460 

P-PLATFM  (SHIP.  1-5) 

46! 

Q-PLATFH  (SHIP,  1*7) 

462 

00  154  AC-P.Q 

463 

ACOUNT-ACOUNT-1 

464 

WRITE  (6.  1521  ACOUNT 

465 

152 

FORMAT  ( -OENTER  A  6  CHARACTER  NAME  FOR  AIRCRAFT  M2) 

466 

REAOI5..00I  INPUT 

467 

CALL  IN  RT6  (INPUT. CHECK) 

466 

00  153  (*1,6 

469 

NAME  (AC,  -II  -CHECK  (J) 

470 

153 

CONTINUE 

471 

PLATFM  (AC.  3)  -PLATFM  (SHIP,  3) 

472 

PLATFM (AC, 81 -0 

473 

PLATFM  (AC.  121  -ACOATA  (AC1N0X,  1) 

474 

PLATFM  (AC.  131  -RCDAT A  (AC I NOX .  2) 

47S 

PLATFM  (AC,  14)  -ACOATA  lAClNDX,  3) 

476 

PLATFM  (AC.  151  -ACOATA  (ACI  NDX.  5) 

477 

PLATFM  (AC.  16)  -ACOATA  (AC I NOX .  7) 

478 

PlATFmiAC.  17)  -ACOATA  (ACI  NDX.  4) 

479 

PLATFM  (AC.  18)  -ACOATA  (ACI NDX.  6) 

480 

PLATFM  (AC. 201  -1 

48! 

PLATFMIAC. 211  -SHIP 

482 

PLATFMIAC.  22)  -PLATFM  (SHI  P.  I) 

483 

154 

CONT 1NUE 

484 

155 

CONTINUE 

465 

165 

CONTINUE 

48b 

C 

487 

C 

LOAD  BLUE  WEAPON  SYSTEMS  -  SUBMARINES 

488 

C 

489 

170 

IF IBLUSU0.EQ.O)  GO  TO  10 

490 

SU8N0-0 

491 

DO  175  SUB-PBSUB 1 , PBSUB2 

492 

SU8N0-SU8N0* 1 

493 

WRITE  (6,  171)  SUBNO 

494 

171 

FORMAT  (MBLUE  SUBMARINE  NUMBER  *,14.//.*  ENTER  A  6  DIGIT*, 

495 

1*  CHARACTER  NAME  FOR  THE  SUBMARINE.*) 

496 

REAO  (5.200!  INPUT 

49? 

CALL  INVRT6  (INPUT, CHECK) 

498 

00  172  3*1.6 

499 

NAME  (SUB,  J!  -CHECK  (J) 

50U 

172 

CONTINUE 

196 


501 

174 

WRITE  (6.  173)  CHECK 

502 

173 

FORMAT ( 'OENTER  THE  SUBMARINE  CLASS 

OF 

' , 6A1 ) 

503 

REAO  (5.202)  CLASNA 

504 

CALL  SCL ASS (CLASNA , CL AS I N, NAHESH) 

505 

IF  ICLASIN.EQ.O)  WRITE  (6.148) 

506 

IF  ICLASIN.EQ.O)  GO  TO  174 

507 

PL ATFM  (SUB,  301  -CLASIN 

508 

WRITE  16,  176)  CHECK 

509 

176 

FORMAT ( 'CENTER  THE  4  DIGIT  HEX  NUMBER 

OF  THE  INITIAL  ’. 

510 

1/. *  LOCATION  OF  ",6A1) 

511 

REAO  (5,200)  INPUT 

512 

CALL  NONVRT  (INPUT, A) 

513 

PLATFM  (SUB,  3)  »A 

514 

PLATFM  (SUB,  8)  -2 

515 

PLATFM  (SUB,  20)  *SHIPDA  (CLASlN,  18) 

516 

PLATFM  (SUB,  12)  -SHIPDA  (CLASIN,  I) 

517 

PLATFM  (SUB,  1  3)  -SHIPDA  (CLASIN.  2) 

518 

PLATFM  (SUB.  14)  -SH1PDA  (CLASIN.  3) 

519 

PLATFM  (SUB.  15)  -SH1PDA  (CLASIN. 9) 

520 

PLATFM  (SUB.  16)  -SH1P0A  (CLASIN.  11) 

521 

PLATFM  (SUB.  17)  -SHIPOA  (CLASIN,  13) 

522 

PLATFM  (SUB.  18)  -SHIPOA  (CLASIN, 6) 

523 

PLATFM  (SUB.  19)  -SHIPOA  (CLASIN. 7) 

524 

PLATFM  (SUB.  21 1  -SH1PDA  (CLASIN.  8) 

525 

PLATFM  (SUB. 22)  -SHIPOA  (CLASIN,  10) 

526 

PLATFM  (SUB. 23)  -SHIPOA  (CLASIN,  12) 

527 

PLATFM (SUB. 24) -SHIPOA (CLASIN,  4) 

528 

PLATFM  (SUB.  25)  -SHIPOA  (CLASI N.  5) 

529 

PLATFM (SUB. 26) -SHIPDA (CLASIN, 14) 

530 

PLATFM (SUB, 27) -SHIPDA (CLASIN, 16) 

531 

PLATFM  (SUB.  28)  -SHIPOA  (CLASIN.  15) 

532 

PLATFM  (SUB,  29!  -SHIPOA  (CLASI N,  1 7) 

533 

175 

CONTINUE 

534 

C 

535 

C 

‘ 

536 

C 

LOAD  RED  WEAPON  SYSTEMS 

537 

C 

538 

10 

WRITE  (6.240) 

539 

240 

FORMAT  Cl  YOU  ARE  NOW  READY  TO  LOAD 

THE 

RED  WEAPON  SYSTEMS.  \ 

540 

1//.*  ENTER  THE  RED  PASSWORD.’) 

541 

REAO  (5.200)  INPUT 

542 

CALL  INVRT6  (INPUT. CHECK) 

543 

A-0 

544 

DO  241  1-1,6 

545 

IF  (CHECK  (1)  . NE.REDPAS  (I) )  A-l 

546 

IF (A.EO. 1)  GO  TO  242 

547 

241 

CONTINUE 

546 

242 

IF  (A.NE.  1)  GO  TO  11 

549 

WRITE  (6,243) 

550 

243 

FORMAT (//.’  YOU  HAVE  MADE  AN  ERROR 

IN 

YOUR  PASSWORD.  TYPE  Y (ES) 

197 


551 

1/.’  IF  TOU  WANT  TO  TRT  AGAIN.  OTHERWISE 

TOU 

HILL 

BE’. 

552 

1/.’  RETURNED  TO  MENU  SELECTION.’) 

553 

REAO  (5.200)  INPUT 

554 

CALL  INVRT1  (INPUT, A) 

555 

IF  (A.  EQ.  ALPHA  (11  )  GO  TO  10 

556 

GO  TO  1 

557 

1 1 

REDAIR-BLUAIR 

SS8 

IF  (REOSUR.EQ.Q)  GO  TO  2 70 

559 

SH1PN0-0 

560 

DO  265  SHIP-PRSUR1.PRSUR2 

561 

SH1PN0-SH1PN0-1 

562 

WRITE (6,2441  SH1PN0 

563 

244 

FORMAT  C1RE0  SURFACE  SHIP  NUMBER  *.14.//. 

’  ENTER  A 

6  CHARACTER’, 

564 

1  ’  NAME  FOR  THE  SHIP.  ’) 

565 

REAO  (5. 200)  INPUT 

566 

CALL  INVRT6 (INPUT, CHECK) 

567 

00  245  J-1,6 

568 

NAME  (SHIP.  J)  -CHECK  (J1 

569 

245 

CONTINUE 

570 

247 

WRITE  16,246)  CHECK 

571 

246 

FORMAT  COENTER  THE  SHIP  CLASS  OF  \6A1) 

572 

REAO  (5. 203)  CLASNA 

573 

203 

FORMAT  (8A2) 

574 

CALL  SCLASS (CLASNA. CLASIN, NAMESH) 

575 

IF  (CLASIN.EQ.O)  WRITE  (6,248) 

576 

248 

FORMAT  COTOU  HAVE  MAOE  A  MISTAKE.  ENTER 

THE 

SHIP 

CLASS  WITH  NO 

577 

1/,’  LEADING  BLANKS  USING  A  PROPER  CLASS 

NAME 

:.  *) 

578 

IF  (CLASIN.EQ.O)  GO  TO  247 

579 

PLATFM  (SHIP. 30) -CLASIN 

580 

WRITE  (6.249)  CHECK 

581 

24!l 

FORMAT  COENTER  THE  4  DIGIT  HEX  NUMBER  OF 

THE 

INITIAL  \ 

582 

1/.  ’  LOCATION  OF  ' , 6A1 ) 

583 

READ  (5.200)  INPUT 

584 

CALL  NONVRT (INPUT, A) 

585 

PLATFM  (SHIP, 3)  -A 

586 

PLATFM (SHIP, 8) -1 

587 

PLATFM  (SHI P.20)  -SHI PDA  (CLASIN.  18) 

588 

PLATFM  (SHIP,  12)  -SHIPDA  (CLASIN,  1) 

589 

PLATFM  (SHIP.  13)  -SHIPDA  (CLASIN, 2) 

S90 

PLATFM  (SHIP,  14)  -SHIPDA  (CLASIN,  3) 

591 

PLATFM  (SHIP,  15)  -SHI PDA  (CLASIN. 9) 

592 

PLATFM  (SHIP.  16)  -SHIPDA  (CLASIN.  1 1) 

593 

PLATFM  (SHIP.  17)  -SMIPOR  ICLASIN,  13) 

594 

PLATFM  (SHIP,  18)  -SHIPDA  (CLASIN,  6) 

595 

PLATFM  (SHIP,  19)  -SHIPDA  (CL  AS  IN,  7) 

596 

PLATFM  (SHI P.21)  -SHIPDA  (CLASIN. 8) 

597 

PLATFM  (SHIP, 22)  -SHIPDA  [CLASIN,  10) 

598 

PLATFM  (SHIP, 23)  -SHIPOA  (CLASIN,  12) 

599 

PLATFM  (SHIP, 24)  -SHIPDA  (CLASIN, 4) 

600 

PLATFM  (SHIP, 251 -SHIPDA  ICLASIN.  5) 

198 


601 

PLATFM  ISHIP,  261  -SHIPOft  (CLASIN.  14) 

602 

PLATFM  (SHIP, 27)  -SH1P0A  (CLftSIN.  161 

603 

PLflTFH  (SHIR, 28)  -SHIPOft  (CLftSIN.  15) 

604 

PLflTFM  (SHI  3, 29!  -SHIPDft  (CLftSIN.  17) 

60S 

C 

606 

C 

607 

C 

LOAD  RED  WEAPON  SYSTEMS  -  AIRCRAFT 

608 

C 

609 

250 

DO  255  1*26.27 

610 

IF  (PLflTFM  (SHIP.  I)  .EQ.Q)  GO  TO  265 

611 

AC  1 NOX- PLflTFH (SHIP, ll 

612 

WRITE  (6.251)  CLflSNfl.  PLflTFM  (SHIP, 1*2) ,  (NflHEAC (flCl NOX. J) . J-l . 6) 

613 

251 

FORMAT (//. 'OTHE  \8A2.  *  CLASS  OF  SHIP  HAS  M2. 1X.6A2.  IX.  ‘TYPE  ' 

614 

1  *  AIRCRAFT.  ’) 

61 S 

PLATFM(SH1P.I»5)  •REOfllR'M 

616 

RE  DA  I R-RE  DA  1R*  PLflTFM  (SHIP,  I  *2) 

617 

PLATFMISH1P. 1*7) -REDAIR 

618 

ACOUNT-O 

619 

P-PLATFM (SHIP. 1*51 

620 

O-PLATFM  (SHIP.  1  —  7) 

621 

DO  254  AC-P.Q 

622 

acount-acount-m 

623 

WRITE  (6.252)  ACOUNT 

624 

252 

FORMAT  COENTER  A  6  CHARACTER  NAME  FOR  AIRCRAFT  M2) 

625 

READ  (5.200)  INPUT 

626 

CALL  INVRT6  (INPUT. CHECK) 

627 

00  253  J-l.  6 

628 

NAME  (AC.  J)  -CHECK  U) 

629 

253 

CONTINUE 

630 

PLATFMIAC.3)  -PLATFM  (SHIP,  3) 

631 

PLflTFM  (AC.8)  *0 

632 

PLATFMIAC.12I  -ACDATft  lACINGX,  1) 

633 

PLATFM  (AC,  13)  -ACDATA  (ACINOX,  2) 

634 

PLATFMlflC,  14!  -  ACDATA  (AC  INDX.  3) 

635 

PLATFMIAC.  15)  -  ACDATA  (ACINOX,  5) 

636 

PLATFMlflC  16)  -  ACDATA  (AC  INDX,  7) 

637 

PLATFMlflC,  171  -ACDATA  (ACINOX.  4) 

638 

PLATFMIAC,  18)  -  ACDATA  (AC  INDX,  6) 

639 

PLATFMIAC. 20!  -1 

640 

PLATFMlflC, 21) -SHIP 

641 

PLflTFM  (AC, 22)  -PLATFM  (SHIP.  I) 

642 

254 

CONTINUE 

643 

255 

continue 

644 

265 

CONTINUE 

645 

C 

646 

C 

LOAD  RED  WEAPON  SYSTEMS  -  SUBMARINES 

647 

C 

648 

270 

IF  (RE0SU8.EQ.0)  GO  TO  15 

649 

SUBN0-0 

650 

DO  275  SU i-PRSUBl .PRSUB2 

199 


651 

SUBNO-SUBNO-l 

652 

WRITE  16.271)  SUBNO 

653 

271 

FORMAT  l  *  1  RED  SUBMARINE  NUMBER  *,19,// 

.  *  ENTER 

A  6  DIGIT*. 

659 

1*  CHARACTER  NAME  FOR  THE  SUBMARINE.*) 

655 

READ  (5,200)  INPUT 

656 

CALL  1NVRT6IINPUT, CHECK) 

65? 

DO  272  J-1,6 

658 

NAME  (SUB,  J)  "CHECK  (J) 

659 

272 

CONTINUE 

660 

279 

WRITE  16,273)  CHECK 

661 

273 

FORMAT  ('CENTER  THE  SUBMARINE  CLASS  OF 

* ,  6A1 ) 

— 

662 

READ  (5,203)  CLASNA 

663 

CALL  SCLASS  (CLASNA,  CLAS1N,  NAMESH) 

669 

IF  (CLASIN.EQ.O)  WRITE  (6,298) 

665 

IF (CLASIN.EQ.O)  GO  TO  279 

666 

PLATFM(SUB,30)*CLAS1N 

667 

WRITE  (6,276)  CHECK 

668 

276 

FORMAT COENTER  THE  9  DIGIT  HEX  NUMBER 

OF  THE 

INITIAL  *. 

669 

I/, *  LOCATION  OF  *, 6A1 ) 

670 

READ  (5,200)  INPUT 

671 

CALL  NON VRT  (INPUT. A) 

672 

PL ATFM  (SUB,  3)  -A 

673 

PLATFM  (SUB, 8) -2 

679 

PL  ATFM  (SUB.  20)  -SHI  PDA  (CL  AS  IN.  18) 

675 

PLATFM  (SUB,  12)  -SHJP0A(CLASIN.  1) 

676 

PLATFM  (SUB,  13)  -SH1P0A  (CLASIN.2) 

677 

PLATFM (SUB, 19) -SMI  PDA  (CL AS  IN. 3) 

678 

PLATFM  (SU8,  15)  -SHIPOA  (CLASIN.9) 

679 

PLATFM  (SU8.  16)  -SHIPOA  (CLASJN,  11) 

680 

PLATFM  (SUB.  17)  -SHIPOA  (CLAS1N.  13) 

681 

PLATFM  (SUB,  18)  -SHIPOA  (CLA5IN.6) 

682 

PLATFM (SUB, 19) -SHIPOA  (CLASIN.7) 

683 

PLATFM  (SUB, 21)  -SHIPOA  (CLASIN.8) 

689 

PLATFM  (SUB,  22)  -SHIPOA  (CLASIN.IO) 

685 

PLATFM  (SUB,  23)  -SHIPOA  (CLASIN,  12) 

686 

PLATFM (SUB, 29) -SHIPOA  (CLASIN.9) 

687 

PLATFM  (SUB, 25)  -SHIPOA  (CLASIN, 5) 

688 

PLATFM (SUB, 26J -SHIPDA  (CLASI N. 1 9) 

689 

PLATFM  (SUB. 27)  -SHIPOA  (CLASIN,  16) 

690 

PLATFM  (SUB,  28)  -SHIPOA  (CLASIN.  15) 

691 

PLATFM  (SUB.  29)  -SHIPOA  (CLASIN,  17) 

692 

275 

CONTINUE 

693 

C 

699 

C 

SET  VARIABLES  TO  BE  USED  AS  POINTERS 

TO  THE  PLATFORM  ARRAY 

695 

C 

696 

15 

PBAIfil » 1 

697 

PBAI R2-BLUAIR 

698 

REQAIR-RE0AIR-8LUA1B 

699 

PRAIRl-BLUAIR-1 

700 

PRAIR2-PRAIR1 -RED AIR-1 

70! 

1A1R-BLUAIR»RE0AIR 

702 

1  SURF-BLUSUR*REDSUR 

7U3 

1  SU8-8LUSUB«RE0SU8 

704 

I PLAT- 1  AIR*  1  SURF  ♦  1  SUB 

705 

IF  (1PLAT.LE.MAXPLT)  GO  TO  16 

706 

MR1TE  16,280) 

707 

280 

FORMAT COTHE  TOTAL  NUMBER  OF  WEAPON  STSTEMS  MAS  EXCEEDED  ThE  MAXIM 

708 

1 UM  ’ ,  / , *  NUMBER  OF  PLATFORMS  ALLOWED.  TOU  WILL  HAVE1, 

709 

1/.  •  TO  RESTART  THE  GAME.  •) 

710 

GO  TO  99 

71  1 

C 

712 

C 

LOOP  TO  CLOSE  PLATFM  AND  REASSIGN  POINTERS 

713 

C 

714 

16 

I F  (PBSUR1 . EO.  1PRA1R2-*  1 )  1  GO  TO  17 

715 

ISH1 P- 1  SURF-*  I  SUB 

716 

DO  283  1-1. 1SMIP 

717 

DO  281  J-1,34 

718 

PLATFM  (PRA1 R2*  I.  J)  -PLATFM  (PBSUR1-  I- l.J) 

719 

281 

CONTINUE 

720 

DO  282  J-1.6 

721 

NAME  IPRA1R2-M.  J)  -NAME  IPBSUR1  ♦  1-  1 ,  J) 

722 

282 

CONTINUE 

723 

00  284  J-2B.29 

724 

IF  (PLATFM  1PRA1  R2»  1 ,  J)  .EO. 0)  GO  TO  283 

725 

P-PL  ATFH  (PRA1 R2*  1 ,  J+3) 

726 

Q-PLRTFM  (PRAIR2-1,  J-S) 

727 

DO  285  K-P.Q 

728 

PLATFM1K.211  -PRAIR2*! 

729 

285 

CONTINUE 

730 

284 

continue 

731 

283 

CONTINUE 

732 

DO  286  1-1. I PLAT 

733 

BUFFER  (1,4)  -PLATFMll.3) 

734 

286 

CONTINUE 

735 

PBSUR 1 -PRAI R2» 1 

736 

PBSUR2-PBSUR1 ♦BLUSUR-1 

737 

PRSUR1 -PBSUR2*  1 

738 

PRSUR2- PRSUR1 ♦RE05UR- 1 

739 

PBSUBl -PRSUR2* 1 

740 

PBSUB2-PBSUB 1 -8LUSUB- I 

741 

PRSUB1 -PBSUB2'*  1 

742 

PRSU82-PRSUB1 ♦REDSUB- 1 

743 

C 

744 

C 

CONTROL  OF  GAME  TURNS 

745 

c 

746 

17 

I  TURN-0 

747 

19 

WRITE  (6.300) 

748 

300 

FORMAT  I’lBLUE  CALL  TO  STATUS  ROUTINES.  ENTER  ThE  BLUE  PASSWORD. *1 

749 

READ  (5. 200)  INPUT 

750 

CALL  INVRT6 (INPUT. CHECK) 
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751 

752 

753 

754 

755 

756 
75? 
758 
753 
760 
7b  1 

762 

763 

764 

765 

766 

767 

768 

769 

770 
77! 

772 

773 

774 

775 

776 

777 

778 

779 
7b0 

781 

782 

783 

784 

785 
7d6 
78  7 
788 
769 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 


301 


20 

302 


21 


303 

22 


305 


23 


306 


CALL  STATUS (CHECK, ERROR. NAME  HP) 

If  (ERROR. EQ.O)  GO  TO  20 
WRITE (6.3011 

fORMAT  ( ’OTTPE  TIES!  TO  TRY  THE  STATUS  CAUL  AGAIN.  TYPE  N(0>'./. 
1’  TO  RETURN  TO  MENU  SELECTION  AND  RESTART  THE  GAME.  ’I 
RE  AO (5. 2001  INPUT 
CALL  INVRT1  (INPUT.  A1 
IE  (A.EQ.  ALPHA  (21  1  GO  TO  1 
GO  TO  19 
WRITE (6.302) 

FORMAT  CIREO  CALL  TO  STATUS  ROUTINES.  ENTER  THE  RED  PASSWORD.  ’> 

READ  (5.2001  INPUT 

CALL  INVRT6  (INPUT. CHECK) 

CALL  STATUS (CHECK. ERROR, NAME WP) 

IF  (ERROR. EQ.O)  GO  TO  21 
WRITE (6. 301 1 
READ  (5. 200)  INPUT 
CALL  INVRTl (INPUT, A) 

IF  (A.EQ.  ALPHA  I2l  I  GO  TO  1 
GO  TO  20 
CALL  CONTRL 
80ES-0 


RQES-0 

00  303  1-1,100 
S-SUNK  (1) 

IF  (S.EQ.  -1)  GO  TO  22 

IF l (S.GE.P8SUR1. ANO. S. LE. P8SUR2)  .OR.  (S.GE. PBSUBl . ANO. S . LE . PBSU82) ) 
lBDES-BDES* 1 

IF  l  (S.GE.PRSURl. AND. S. LE . PRSUR2)  .OR.  (S.GE . PRSUB1 . AND. S. LE . PRSUB2)  l 
1R0ES-RDE5* 1 
CONTINUE 

IF  (BOES.EQ.  (BLUSUR-BLUSUB) )  GO  TO  9997 
I F  (60ES.LT.  0LUOES)  GO  TO  23 
WRITE  (6.305) 

FORMAT ('(THE  NUMBER  OF  BLUE  SHIPS  DESTROYED  IS  EQUAL  TO  OR  \ 

1/.’  GREATER  THAN  THE  NUMBER  INPUT  FOR  GAME  END.  IF  YOU  WANT’. 

1  / ,  *  TO  CONTINUE  The  GAME,  TYPE  T(ESI.  TYPE  NfO)  TO  END  THE  GAME.’’ 
1) 


REAO  (5,200)  INPUT 
CALL  INVRTl (INPUT. A) 

IF  (A.EQ. ALPHA (2) I  GO  TO  9997 
IF  (RDES.EQ.  (REOSUR-REDSUB) )  GO  TO  9997 
IF  (ROES. LT. REDOES)  GO  TO  24 
WRITE  (6,306) 

FORMAT  (MTHE  NUMBER  OF  RED  SHIPS  DE5TR0TE0  IS  EQUAL  TO  OR’, 

1/.’  GREATER  THAN  THE  NUMBER  INPUT  FOR  GAME  END.  IF  YOU  WANT’, 

1/.’  TO  CONTINUE  THE  GAME.  TYPE  Y  (ES)  .  TYPE  N  (0)  TO  END  THE  GAME.’ 
II 


HERO  (5,2001  INPUT 
CALL  INVRTl (INPUT. A) 


202 


fiui 

IF  IA.E0.  ALPHA  (21)  GO  TO  9997 

602 

24 

1 1  urn»  l  turn-*  i 

303 

IF  ll  TURN.  LT.  TURN!  GO  TO  25 

804 

WRITE  (6.3041  I  TURN 

80S 

304 

FORMAT  I '11(00  MflVE  JUST  COMPLETED  GAME  TURN  M3.'.’, 

6Uh 

1/.'  T I PE  T  (ESI  IF  TOO  WANT  TO  CONTINUE  THE  GAME,  OR  N  (0) 

au  ? 

1  / ,  *  (0  ALLOW  The  GAME  TO  END.') 

608 

HE  AO  IS. 2001  INPUT 

008 

CALL  INVRT1  UNPUT.A) 

810 

iFiA.EU  alpha  (2i  i  go  to  9997 

81  1 

25 

GO  TO  1  1 

018 

C 

01  J 

c 

game  em 

814 

c 

8  1  S 

9997 

WRI  TE  (b.  3071 

816 

307 

FORMAT  1  '  18LUE  RESULTS!1.//: 

81  7 

WRITE  16, 3081 

818 

308 

FORMAT  f  '.3JX.  'FINAL  \/.SX.  'SHIP*.  5X,  'STATUS/HlTS  ‘ ,  5X. 

819 

I  'LOCATION-1 

820 

COUNT -0 

821 

IF  l8LUSUR.EQ.0l  GO  TO  27 

822 

A«PBSURl 

823 

B-P8SUR2 

824 

C=  1 

825 

26 

00  313  PLT-A.B 

826 

TEMP--PLATFM (PLT, ll) 

82  7 

IF  (PLATFM  (PLT.20I  .EQ.O)  WRI  TE  (6. 309)  (NAME  (PLT,  J)  .  J-l  .6) 

828 

1PLATFM  IPL T . 3) 

829 

309 

FORMAT  (  '0  3X.6A1 , 7X.  'SUNK  ’. IOX. 14) 

63U 

IF  (PlATFMIPLT.20)  .GT.O)  WRITE  16.310)  (NAME  (PLT ,  J)  .  J- 1 . 6) 

831 

1  TEMP.  PLATFM  (  (PLT.3I 

832 

310 

FORMAT  (  'O’ .3X.6RI ,9X, I 1 , I2X. 14) 

833 

COUNT  *COUNT ♦ 1 

834- 

IF  (COUNT. LT. 10)  GO  TO  313 

835 

COUNT  *0 

836 

WRI  TE  (6.31  1) 

837 

311 

FORMAT  ( 'OMORE  ON  NEXT  PAGE.  TYPE  TIES)  TO  CONTINUE.') 

838 

REAO  (S, 201 1  G 

039 

WRITE  16,3121 

840 

312 

FORMAT  I'l  \  3 IX.  'FINAL*. /.5X.  'SHIP' ,5X.  ’STATUS/HI  TS  ' ,  5X, 

841 

1  'LOCAT  1  ON  '  1 

842 

313 

CONTINUE 

84  3 

IF  lC.GT.3l  GO  TO  9998 

844 

IF  (C.GT.2I  GO  TO  29 

845 

IF  (C.GT. I)  GO  TO  28 

846 

27 

IF (BLUSUB.EQ.OI  GO  TO  28 

84  7 

H-P8SU8! 

848 

B*P8SUB2 

849 

C-2 

850 

GO  TO  26 
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851  28  WRITE  16, 3 1 41 

852  314  FORMAT  I ’OTTPE  T  (£S)  TO  SEE  RED  RESULTS.’) 

853  REAO  15.201)  G 

854  WRITE  (6.315) 

855  315  FORMAT  (’ IREO  RESULTSi  ’,//) 

856  WRITE  16  1081 

65  7  COUNUG 

858  31b  IF  (RE05i  H.EQ.O)  GO  TO  29 

859  fi-PRSURl 

860  B-PRSUR2 

86)  C-3 

862  GO  TO  26 

863  29  IF  (RE05U8.EQ.0)  GO  TO  9998 

664  A-PRSUB1 

865  8-PRSU82 

866  C-4 

867  GO  T0  26 

868  9998  WRITE  (6.3171 

869  317  FORMAT  ( 'OTTPE  TIES!  TO  RETURN  TO  MENU  SELECTION  AND  START  R  NEW. 

870  1/.'  GAME.  TTPE  N  (0)  TO  EXIT  THE  GAME.’) 

871  READ  (5,200)  INPUT 

872  CALL  1NVRT1 (INPUT, A) 

873  IF  (A.EQ.ALPHA(l)  )  GO  TO  1 

874  9999  WRITE  (6.318) 

875  318  FORMAT ( ’0EX1 TING  THE  GAME.’) 

876  STOP 

877  END 
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1  SUBROUTINE  STATUS  IPASHRO. ERROR. NAMEHP) 

2  C 

3  C  THIS  SUBROUTINE  IS  THE  DRIVER  FOR  RLE  DISPLAY  ROUTINES. 

V  C 

5  IMPLICIT  INTEGER  (A-2) 

6  OlMENSluN  PRSNRD  16)  .  INPUT  170)  .ALPHft  (2)  .NAMEHP  129,6) 

7  COMMON  I  LRTFM  1 100,  371  .DETECT  (1 00.  VI  .HEP  (29.31  .HIT  (100,3)  .SUNK!  100) 

8  I.MflTERl.OOl  .NAME  (100,6)  .  BUFF  ER  1 1 00.  8)  ,  BLUPRS  (6)  .REDPRSI6)  , 

9  21  PLAT. lhlR. 1SURF. 1  SUB, RDV . PDV , AEV . PEV . ERRT I C . BLUR1 R. REDR1 R. BLUSUR. 


10 

3REDSUR.  ULUSU8,  REOSUB,  PBA 1  R 1 .  PBA1 R2,  PRRI R1 ,  PRRI R2,  PBSURl ,  PBSUR2. 

1 1 

VPRSUR 1 . PHSUR2, PBSUB1 . PB5UB2. PRSUB1 . PRSUB2 

12 

DATA  ALPHA/ *  T  * , ‘N’/ 

13 

A-0 

IV 

* 

ERROR-O 

IS 

00  100  1-1.6 

16 

IF  IPASHRO  (1)  .NE. BLUPRS  (1)1  A- 1 

1  7 

IF  (A.EO.  11  GO  TO  200 

16 

100 

CONTINUE 

19 

200 

IF  (H.EQ. 1)  GO  TO  300 

20 

AC  1  - 1 

21 

AC2-BLUA1R 

22 

SuR 1 -P8SUR 1 

23 

SUR2-PBSUR2 

2V 

sub i -pbsubi 

26 

SUB2-PBSUB2 

26 

AC-BLUA1R 

27 

SUR-BLUSUfl 

28 

SUB-BLUSUB 

29 

SIOE-1 

30 

GO  TO  800 

31 

300 

A-0 

32 

00  VOO  1-1.6 

33 

IF  IPASHRO  11)  .NE.REDPASlin  A-l 

3V 

IF (A.EQ. II  GO  TO  500 

35 

VOO 

CONTINUE 

36 

SOO 

IF  m.EQ.  1!  GO  TO  600 

37 

AC1-PRAIR1 

38 

AC2-PRA1R2 

39 

SURl -PRSUR1 

VO 

SUR2-PRSUR2 

VI 

SUB  1 -PRSU61 

V2 

SUB2-PRSUB2 

V  3 

AC-REDAIR 

VV 

SUR-REOSUR 

VS 

SUB-REDSUB 

V6 

SIOE-2 

V  7 

GO  TO  800 

VI) 

600 

ERROR- 1 

V9 

HRITE  (6,  700) 

50 

700 

FORMAT  COTOU  HAVE  MAOE  AN  ERROR  IN  THE  ENTRY  OF  TOUR  PASSHORD. * 

205 


51 

GO  TO  9999 

S*? 

800 

WRI IE  (6.821) 

S3 

821 

f  OfiHAT  ( ' 1  the  FOLLOWING  display  options  are  available 

TO  TOUt *. 

59 

1///.’  1.  detections  of  eneht  platforms.  \ 

55 

l//.'  2.  results  of  weapons  fireo.\ 

S6 

l//.'  3.  DAMAGE  TO  FRIEnOLT  PLATFORMS.1. 

57 

1/7.'  9.  STATUS  OF  FRIENOLT  PLATFORMS  AND  INPUT 

OF  INSTRUCTIONS. *, 

58 

l//.1  5.  8EGIN  NEXT  GAME  TURN. *1 

59 

1000 

NHITi  (6.8291 

60 

829 

FORMuT  (///.  '  SELECT  AND  ENTER  THE  NUMBER  OF  A 

0 1  SPLAT 

OPTION.  *. 

61 

1/,'  INTER  A  6  FOR  A  LIST  OF  QISPLAT  OPTIONS.*) 

62 

READ  S, 8221  INPUT 

63 

822 

FORM!  T  17QAI 1 

69 

Call  uonvrt (Input. ai 

65 

11  (A.EQ.6I  CO  TO  800 

66 

IF  (A.EQ.  1.0R.A.EQ.2.0R.A.EQ.3.0R.A.E0.9.0R.A.E0.5)  GO 

TO  030 

67 

WRITE  16,823) 

68 

823 

FORMAT  l  *OrQU  HAVE  HADE  AN  ERROR  IN  YOUR  INPUT 

SELECTION.  TRY  AGA1 

69 

IN.  *1 

70 

GO  TO  1000 

71 

830 

11  (A.GT.  11  GO  TO  2 

72 

Cull  OETXT (AC1.AC2.SUR1,SUR2.SUB1.SUB2.NAMEWP1 

73 

Gli  TO  1000 

19 

2 

11  IA.GT.2I  GO  TO  3 

75 

CULL  SHOTRE  (AC1.AC2.SUR1.SUR2.SUBI.SUB2,NAmEWP 

.AC. SUR 

.SUB) 

7b 

Go  TO  1000 

n 

3 

II  (A.GT. 31  GO  TO  9 

78 

COLL  OAMRE (SUR1.SUR2.9UB1.SUB2.SUR.SU81 

79 

GO  TO  1000 

80 

9 

li  IA.GT.9I  GO  TO  5 

81 

COLL  ST  AT  1 N  t AC  1 . AC2. SUR 1 , SUR2 . SUB 1 . SUB2. NAMEHP) 

62 

GO  TO  1000 

a3 

5 

W  (ITE  (6.831) 

69 

831 

FORMAT  ( ’OTHIS  OPTION  WILL-  BEGIN  THE  NEXT  GAME 

TURN. 

TTPE  T  IES)  *. 

85 

1/.*  IF  YOU  HAVE  ENTERED  ALL  TOUR  COMBAT.  MOVE 

AND  SEARCH  *, 

86 

1/.*  INSTRUCTIONS  AND  YOU  RRE  READY  TO  COMMENCE 

PLAT. 

TTPE  N  (0) 

87 

1/,’  TO  RETURN  TO  DISPLAY  SELECTION.*) 

68 

R. AO  15.822)  INPUT 

89 

coll  invrt i  (Input, Bi 

90 

I  (B.NE.  ALPHA  (II  1  GO  TO  1000 

91 

9999 

R.  TURN 

92 

E  10 
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1 

2 

3 

9 

5 

6 

7 

8 

9 

10 
1  1 
12 
13 
19 

15 

16 

17 

18 

19 

20 
21 
22 
23 
29 

25 

26 

27 

28 

29 

30 

31 

32 

33 
39 

35 

36 

37 

38 

39 

90 

91 


SUBROUTINE  OETXT  IftCl , RC2, 5UR1 . SUR2, SUB1 . SUB2, NAMEHP) 

C 

C  THIS  SUBROUTINE  DISPLAYS  THE  DETECTIONS  OF  THE  CRLL1NG  FORCE. 

C 

IMPLICIT  INTEGER  (R-Z) 

COMMON  PLRTFM  ( 100.  371  .DETECT  (100.9)  .HEP  (29.31  .HIT  (100.31  .SUNK  (100) 
l.HHTEU  (100)  .NAME  1100.61  .  BUFFER  ( 1  00. 8)  .BLUPftS  (6)  .  REDPflS  (61  . 

21  PLAT. 1A1R, 1  SURF , 1  SUB, AOV , PDV . AE V. PE V , ERRT 1 C, BLUA1 R. REOA 1 R. BLUSUR. 
3RE0SUH. 8LUSU8 . REDSUB. PBA1R1.PBA1R2, PRA1 Rl , PRAI R2. PBSUR1 . P8SUR2, 
9PRSLR1 . PRSUR2. P8SUB1 , PBSUB2, PRSUB1 . PRSUB2 
DIMEN'  ION  ALPHA!  (2.5)  .ALPHA2(2,9I  .  NAMEHP  (29,  6) 

DATA  ALPHA1  / ’SU  ’,  'SU * .  *RF  ' ,  "BM  ’.  "AC  ‘ .  ' AR ’ ,  ’E  ’.’IN’.’  \’E  ’/ 
DATA  ALPHR2/  ’PA  ’.  *AC  * ,  ’SS  ’,  *T  1  *,  ’  1 V  *,  *  VE  *E  ’.  *  ’/ 

C0UNT*0 
HRITE  (6.  1) 

1  FORMAT  Cl  •.  19X,  ‘SONOR‘,7X.  •SHIP,,/,2X.  ’DETECTING  ’ ,  9X.  *TTPE’.8X. 

1 *T rPE  *./.2X.  ’PLATFORM*. 5X.  ’USED’.GX.  ’DETECTED ’. 3X. ’LOCATION’./) 

00  6  PLT-1 . 100 
DCOETECT  (PLT,  1) 

02*0£T£CT  (PLT .  21 
IF  (Ol.EQ.-ll  GO  TO  9999 

IF (  (01.GE.AC1.AN0.D1.LE.AC2I .OR.  ID  1 . GE. SUfll . AND. 01 .LE. SUR21 .OR. 

1  (01.GE.SUB1.AN0.01.LE.SUB2))  GO  TO  2 
GO  TO  6 

2  HRITE  (6.  3)  (NAME  (01 .  J)  .  J- 1 . 6)  .  (ALPHA2  (DETECT  (PLT.  3)  *1 ,  J)  .  J-1.91  . 

1  (ALPHA  1  (PLATFM  (02,8)  ,  J)  .J-1.5)  .  PLATFM  (D2. 3) 

3  FORMAT)’  ’.3X.6A1.5X.9A2.3X.SA2.3X.19) 

C0UNT»C0UNT»1 

IF  (COUNT.LT.  19)  GO  TO  6 

COUNT-O 

HP.ITE  (6,9) 

9  FORMAT  I 'OMORE  DETECTIONS  ON  NEXT  PAGE.  TYPE  TIES)  TO  CONTINUE.’) 
RE  AO  (5, 5)  C 

5  FORMAT  (All 
HRITE  (6,11 

6  CONTINUE 
9999  HRITE  (6,  7) 

7  FORMAT  COENO  OF  DETECTION  ROUTINE.  TYPE  TIES)  TO  CONTINUE.’) 

Rt  HO  15, 5)  C 

RETURN 

ENO 
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1 

2 

3 

4 

5 

6 
7 
6 

9 

10 
1 1 
12 
1  3 

14 

15 

16 
1  7 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 
91 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 


SUBROUT 1 NE  SHOTRE (RC 1 , AC2. SUfil . SUR2. SU8I . SUB2.NflMEWP.RC, SUR, SUB) 

C 

C  THIS  SUBROUTINE  OiSPLATS  THE  RESULTS  OF  WEAPONS  FIRED  BT  THE 
C  CALLING  FORCE. 

C 

IMPLICIT  INTEGER  Ifl-ZI 
REAL  R 

COMMON  PLATFM  1 1Q0 , 37)  .DETECT  (100.41  ,W£P(29.3)  .HIT  1100,3)  .SUNK1100) 

1 .  WATER  ( 1  001  ,  NAME  1 1 00, 6)  .BUFFER  (100,8)  .BLUPAS  (6)  ,  REDPAS  (6)  . 

2 1  PLAT. lAlfl. 1SURF. ISuB, ADV.PQV. AE V . PE  4 . ERAT I C . BLUA1 R. REOAI R . BLUSUR. 
3RE0SUR  BLUSUB. REDSUB, PBAI R1 . PBA 1 R2. PRA1 R 1 , PRH1 R2. PBSUR 1 , PB5UR2, 
4PRS0R1  PRSUR2. P8SUB 1 . PBSUB2, PRSUB1 . PRSUB2 
0 1  Ml  NS:  ON  ALPHAl  (2,7)  .  NAMEWP  (29,  6) 

OATH  Al  PmAI/'OE'.  'NO'. 'TO'.  '  0  *.  'NA  ’ ,  '£T  ' ,  'T  I  *,  'ON  * ,  'ON  '.  "AT  ' .  *  * 

1.  *10*.  *  '.  'N  V 

IF  IOC .  EG.  01  GO  TO  20 
WR11 E  (6. 1 1 

I  FORMAT  Cl ‘I 
COUNT-O 

00  10  PLT-AC1.AC2 

IF  (  (PLATFM  (PLT, 23)  .£0.0)  .AND.  (PLATFM  (PLT.  24)  .EO.O)  )  GO  TO  10 
WR1  TE  (6.4)  (NAME  (PLT,  J)  .  J- 1 .6)  .  (NAME  (PLATFM  IPLT.21)  .  J)  ,  J*I,6)  .PLAT 
1FM  (PL T , 21 

4  FORMAT  (//,*  AIRCRAFT  -  \  6A 1 . 5X.  ’PARENT  SHIP  -  \6Al.5X. 

1  'COMBAT  LOCATION  -  ’.14) 

DO  7  HP»1 .2 

HESULT-PLATFM  (PLT.WP*22I 
IF  (RESULT. EQ.Oi  GO  TO  7 
R-RESULT/6. 

IF (RESULT. GE. 1. AND. RESULT. LE. 6)  WRITE  (6,5)  WP.  (NAMEWP (PLATFM (PLT . W 
IP'  161  .  Jl  .  J-l  ,6)  ,R 

5  FORMAT!'  WEAPON  \  1 1 . 3X. *TTPE  *  * .  6A2. 5X.  'PROB  (M 1  T) /OETONAT  I  ON  -  ' 
1 .  F6. 41 

IF  (RESULT. GT. 6)  WRITE  (6.61  WP.  (NAMEWP  (PLATFM  (PLT .  WP*  16)  ,J)  .J-1.6)  . 
1  IALPHA1  (  (RESULT -6)  ,  J)  ,  J-J  .  7) 

6  FORMAT  C  WEAPON  ' . 1 1 . 3X, 'TYPE  -  6A2 , 5X , ’PROB  (HIT ) /OETONAT ION  -  ' 

1.7A2I 

7  CONTINUE 
COUNT-COUNT*! 

IF (COUNT. LT.S)  GO  TO  10 
HR  I  TE  (6,8) 

8  FORMAT  ( 'OMORE  ON  NEXT  PAGE.  TYPE  TIES)  TO  CONTINUE.') 

RE AU  (5, 9)  G 

9  FORMAT  (All 
COUNT-O 

10  CONTINUE 

II  HR  1  TE  (6,  1  21 

12  FORMAT!//.'  TYPE  TIES)  FOR  SHIP  RESULTS.') 

REMO  (5,  91  G 
20  WRITE  (6.11 
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51 

COUNTS 

52 

IF  (SUR. EQ.OI  GO  TO  18 

53 

A-SUR1 

54 

B-SUR2 

55 

C*  1 

56 

13 

DO  16  PL  T  =  fl. 8 

5? 

IF  (  t  PL  ft  T  F  M  (PUT  .  351  .EQ.O)  .  AND.  (PLATFH  (PLT.36)  .EQ.O)  .  ftNO. 

58 

1  (PLATFN  IPLT.  37)  .EQ.OI  1  GO  TO  16 

59 

WRITE  (6.  14)  INRME  IPLT,  J)  .  J-1.6)  ,  PLflTFM  (PLT,  2) 

60 

14 

FORMAT  1//,’  SHIP  -  \6A1  ,SX,  'CDHBRT  LOCATION  -  M«) 

61 

00  15  HI  -1.3 

6.? 

RE  SULT*I'L  ATF M  (PL  T , HP*  34 1 

63 

IF  (RESUl  T. EQ.OI  GO  TO  15 

64 

R-RE5UL i /6. 

65 

IF  (RESUi  T.GE.1.AND.RESULT.LE.6)  WRITE  16,5)  HP. 

66 

1  (NfiMEHP  iPlATFM  (PLT.HP*20)  .  Jl  ,  J»  1 . 6)  ,R 

67 

IF  (RESUi  1  .  GT.6I  WRITE  (6,6)  HP.  (NAMEWP  (PLflTFM  (PLT,WP«20)  .  J)  .  J-l  .6)  . 

68 

1  (flLPMfll  i  (RESULT-6!  ,  Jl  .  J=  1 . 71 

69 

IS 

CONTINUE 

70 

COUNT  *COUNT ♦ 1 

7! 

IF  (COUNT. LT. 41  GO  TO  16 

72 

HR!  TE  (6.  81 

73 

READ  (5,91  G 

74 

C0UNT*0 

75 

16 

CONTINUE 

76 

IF  IC.GT.  li  GO  TO  9999 

77 

18 

IF  (SU0.EU.O)  GO  TO  9999 

78 

C-2 

79 

fl-SUBl 

80 

B-SU82 

81 

GO  TO  13 

82 

9999 

WRITE  (6,  1  7l 

83 

17 

FORMAT  ( 'CjENO  OF  WEAPON  RESULT  OISPLflT.  UPE  TIES)  TO  CONTINUE.’) 

84 

REflO  (5,  9l  G 

85 

RETURN 

86 

ENO 
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SUBROUTINE  DAMRE (5UR1 , SUR2, SUB1 , SUB2, SUR, SUB) 

C 

C  THIS  SUBROUTINE  DISPLAYS  DAMAGE  SUFFERED  BT  THE  CALLING  FORCE 
C 

IMPLICIT  INTEGER  1A-Z) 

COMMON  PLATFM  (100.  37)  .DETECT  1100.9)  .HEP  129.3)  .HIT  1)00.3)  .SUNKUOO) 
1. HATER  1100)  .NAME  1100,6)  .BUFFER  (100,8!  .BLUPAS  (6)  .REDPAS  (6)  . 
21PLAT.IA1R. 1SURF , 1SUB, AGV, POV, AEV, PEV, ERAT 1C, BLUA1 R. REDAIR, BLUSUfi, 
3RE0SUR, 8LUSUB. REOSUB. PBAIR1 . PBAIR2. PRAIR1 . PRA1R2, PBSUR1 . PBSUR2, 
9PRSUR1 .PRSUR2.PBSUB1 , PBSUB2.PRSUB1 , PRSUB2 
HfllTE  16,  11 

1  FORMAT  Cl  \5X.  ’SHIP  * , 5X.  'STATUS/HlTS’l 

COUNT-O 

IF  (SUR. ED. 0)  GO  TO  9 

A-SUR1 

B-SUR2 

C»1 

2  00  7  PLT-A.B 

IF  (PLATFM  1PLT.  201  .£0.0)  HRITEI6.3)  (NAME  (PLT,  J)  ,  J»  1 , 6) 

3  FORMAT  CO’. 9X.6A1.7X. ’SUNK’) 

TEMP--PLATFM  (PLT, 1 II 

IF  (PLATFM  (PLT. 201  .GT.O)  WRITE  (6.9)  (NAME  (PLT,  J)  .  J- 1 , 6)  . TEMP 
9  FORMAT  CO’. 9X.6AI.9X. ID 

COUNT-COUNT-*! 

IF  (COUNT. LT.  10)  GO  TO  7 

COUNT-O 

WRITE (6.5) 

5  FORMAT  COMORE  ON  NEXT  PAGE.  TYPE  Y  (ES)  TO  CONTINUE.’) 

REAO  (5.6)  G 

6  FORMAT  (Al) 

WRITE  (6. 11 

7  CONTINUE 

IF  (C.GT.ll  GO  TO  9999 
9  IF  (SUB.EO.O)  GO  TO  9999 

C-2 
A-SUBI 
B-SU82 
GO  TO  2 

9999  WRITE  (6.8) 

3  FORMATCOENO  OF  DAMAGE  DISPLAY  ROUTINE.  TYPE  Y  (ES)  TO  CONTINUE.’) 

REAO  (5.6)  G 
RETURN 
END 
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19 
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SUBROUT 1 NE  STAT 1 N  <ACI . AC2, SUR1 , SUR2, SUBl . SUB2, NAMEWP) 

C 

C 

C  0 1 SPL ATS  1  NO  1 V 1  DUAL  platform  strtus  of  cohbrt  actions,  movement 

C  RNO  SEARCH  RESULTS.  ACCEPTS  COMBAT.  MOVEMENT  AND  SEARCH 

C  COMMANDS.  ALL  INPUT  IS  PUT  INTO  A  BUFFER  AND  OVERLAtEO  AT 

C  GAME  TURN  EXECUTION 

C 
C 

implicit  integer ia-zi 

COMMON  PL  ATFM  ( 1 00,  3  71  .DETECT  1100,9)  .HEPI29.3I  .H1TU00.3)  .SUNKUOO) 

1 .  WATER  1 1 001  .NAME  (100.6)  .  BUFFER  1 100,  81  .BLUPAS  (6)  .REDPAS  (6)  . 

21  PLOT, I  AIR. I  SURF. ISUB. ADV.PDV. AE V . PE V . ERAT I C . BLUAI R. REOA I R. BLUSUR, 
3RE0SUR. BLUSUB. RE05U8, PBA 1 R1 . PBAI R2. PRAI R1 . PRA1 R2. PBSUR1 , PBSUR2. 
9PRSUR1 . PRSUR2. PBSUB 1 . P8SUB2. PRSU8 1 , PRSUB2 
0 1  ME  NS  1  ON  INPUT  (70)  .  I  NAME  (6)  .NAHEWP  (29.6)  .EXIT  (6) 

DATA  NO/’N’/ 

5  NR]  T E  16.1  00) 

100  FORMAT!//’  TOU  HAVE  SELECTED  INDIVIDUAL  PLATFORM  STATUS  OISPLAT'. 
1’  ANO  ASSOCIATED'/’  COMBAT , HOVEMENT  AND  SEARCH  COMMAND  INPUTS.’/ 

2’  ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM.  V/l 

10  REAC  (5. 1011  INPUT 

101  FORMAT (70A1) 

CALL  1NVRT6 (INPUT, INAHEI 

CALL  NAME  1 N ( 1  NAME , I  NOE  X , NAME . AC  1 , AC2 , SUR 1 . SUR2 , SUB  1 . SUB2) 

IF  (INDEX. NE.OIGO  TO  20 
WRITE  (6,  1021 

102  FORMAT  (’  TOU  HAVE  ENTERED  AN  INCORRECT  PLATFORM  NAME.  VT5.  'REENTER 
1  '///l 

GO  TO  10 
20  TEST  *0 

IF (1NDEX.GE. AC  1 .ANO. INDEX. LE.AC2) CALL  STATAC (TEST, INDEX, I  NAME. 
INAHEWP) 

IF ( (INDEX. GE.SUR1. AND. I NOEX . LE . SUR2)  .OR.  ( I NDEX. GE . SUB  1 . AND. INDEX. 
1LE.SUB2I ICALL  STATSS  (TEST, INDEX, I  NAME . NAMEHPl 
IF  (TEST  .  EQ.  0!  WRITE  (6.103) 

103  FORMAT!’  TOU  CAN  ONLT  OBTAIN  STATUS  AND  INPUT  COMMANDS’/ 

1*  FOR  PLATFORMS  UNDER  TOUR  CONTROL.’) 

WRITE  (6, 109! 

109  FORMAT!//'  ENTER  TIES)  TO  CONTINUE  WITH  ANOTHER  PLATFORM'/ 

1*  ENTER  NIOl  TO  RETURN  TO  DISPLAT  SELECTION’) 

RE  AO  (6.101!  INPUT 

CALL  INVRT1  (INPUT, ATEST) 

IF  (ATEST. EQ. NO)  RETURN 
WRITE  (6. 1061 

106  FORMAT  (//’  ENTER  THE  NAME  OF  THE  DESIRED  PLATFORM’//) 

GO  TO  10 
END 
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2 

C 

3 

C 

4 

c 

5 

c 

6 

c 

7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

100 

18 

19 

20 

c 

21 

c 

22 

c 

23 

c 

24 

c 

25 

26 

101 

27 

28 

29 

30 

31 

102 

32 

33 

34 

103 

35 

36 

37 

104 

38 

39 

105 

40 

10 

41 

106 

42 

43 

44 

107 

45 

46 

47 

48 

108 

49 

50 

SUBROUT 1NE  STATAC  IUSED, INDEX, INAHE, NAMEHP) 


AIRCRAFT  STATUS  AND  COHHAND  INPUT  SUBROUTINE 


IMPLICIT  INTEGER  IA-ZI 

COMMON  PLATFM  (100,  37)  .DETECT  (100,4)  , HEP  (29,3)  . HIT  (100, 3)  . SUNK  (1 00) 
1 ,  HATER  (100),  NAME  ( 1 00. 6)  ,  BUFFER  (100,8),  BLUPAS  ($1  .  REOPAS  (6)  . 

21PLAT, I  AIR. 1  SURF , I  SUB, ADV, PDV, AEV, PEV, ERAT 1 C, BLUAI R, RE0A1R, BLUSUR, 
3RE0SUR, BLUSUB, REDSUB, PBAIR1 , P8AIR2. PRAIR1 , PRA1R2. PBSUR1 . P8SUR2, 
4PRSUR 1 . PRSUR2 , PBSUBl . PBSUB2 . PRSUB 1 . PRSUB2 
DIMENSION  I  NAME  (6) ,  NAMEHP  (29. 6)  .INPUT  (70) .  HEPON  (6) 

OATA  NONE/ 'N  V 
USED-1 

IF  (PLATFM  (INDEX,  11)  .EQ.O)  HR1TE  (6. 100)  I  NAME 

FORMAT  (//IX, 6A1,  •  IS  CURRENTLY  NOT  FLTING  -  IT  IS  ASSUMED  YOU'/ 

1  '  DESIRE  TO  LAUNCH.  *) 

IF  (PLATFM  (INOEX.  11)  .EQ.O)  GO  TO  35 


STATUS  DISPLAYS 


WRITE  (6.101)  1  NAME,  PLAT  rM  (INDEX.  3)  .PLATFM  (INDEX.  4) 

FORMAT  I//1X.6A1. ’  IS  LOCATED  AT  POSITION*. IS, •  AT  SPEED*. 131 
1F(PLATFM(1NDEX.23).E0.0.AN0.PLATFM(1NDEX.24).EQ.0)G0  TO  10 
X-23 

IF  (PLATFM  (INDEX. 23)  .EQ.O)  X-24 

WRITE  (6.  102)  (NAMEHP  (PLATFM  (INDEX. X-6)  ,J)  .J-1,6)  .PLATFM  (INDEX. 2) 
FORMAT!*  IT  RELEASED  A  *,6A2.*  AT  A  SUBMARINE  TARGET  LOCATED*/ 

1*  AT  POSITION*.  15/'  THE  WERPON') 

IF  (PLATFM  (INOEX.  X)  .LE.  6)  WRITE  (6.103)  PLATFM  (INDEX.  X) 

FORMAT!*  DETONATED  WITH  PROBABILITY  OF  A  HIT  0F*,I2, 

1  *  OUT  OF  6') 

IF  (PLATFM  (INOEX,  X)  .EO.  7)  WRITE  (6,104) 

FORMAT  (T13, 'DETONATED  (HIT)*) 

IF  (PLATFM  (INOEX,  X)  .E0.8)  WRITE  (6,105) 

FORMAT  (T13,  *010  NOT  DETONATE*) 

IF  (PLATFM  (INDEX. 7)  .EO.O)  WRITE  (6,106) 

FORMAT ( *  IT  HRS  NOT  ASSIGNED  A  SEARCH  MISSION*) 

IF  (PLATFM  (INDEX,  7)  ,E0. 0)  GO  TO  30 
IF  (PLATFM  (INOEX, 41  .GT.O)  WRITE  (6. 107)  1NAME 

FORMAT  (IX. 6A1, ’  COULD  NOT  EXECUTE  A  SEARCH  MISSION  AS  ITS  SPEED*/ 
1*  HAS  GREATER  THAN  ZERO’) 

IF  (PLATFM  (INDEX, 4)  .GT.O)  GO  TO  30 
IF  (PLATFM  (INDEX. 71  .EO.  1)  WRITE  (6.108) 

FORMAT ( ’  IT  CONOUCTEO  AN  ACTIVE  SEARCH  WITH  FOLLOWING  RESULTS*/ 

1*  SUBMARINE  CONTACT  LOCATION  RANGE*) 

IF  (PLATFM  (INOEX.  7)  .EO. 2)  WRITE  (6, 109) 
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51 

109 

FORMAT  1 '  IT  CONDUCTED  fl  PASSIVE  SEARCH  WITH  FOLLOWING  RESULTS’/ 

52 

1’  SUBMARINE  CONTACT  LOCATION  RANGE  *1 

S3 

X«0 

54 

DO  20  1=1 . 100 

55 

IF  IDETECT  II.  11  .LT.OIGO  TO  21 

56 

IF (0  TECT  (1. 1) .N£. INDEX) GO  TO  20 

57 

X*1 

58 

WR1  TE  (6.  1  101  PLATFH  10ETECT  11 .2)  .3)  .DETECT  (1 ,1) 

59 

1  10 

FORMAT  (Tl3.I1.T3l.il) 

60 

20 

CONTINUE 

61 

21 

IF IX.EQ.O)  WRITE (6. 1 1 1) 

62 

1  1 1 

FORMAT  (T5, ’THERE  WERE  NO  DETECTIONS’) 

63 

WR!  TE  (6.  1271  (NAME  (INOEX.  Jl  .  J»1 .61 

64 

127 

FORMAT  (IX. 6A1.  ’  WEAPON  STSTEM  IS)  VT5 . ’TTPE ’.  T 1 5. ’RANGE  *1 

65 

WRITE  (6.  128)  (NAMEWP  (PLATFH  1 1 NDEX,  17)  .  J)  .  J»1.6)  .HEP  (PLATFH  (INDEX, 

66 

1  171  .2) 

67 

128 

FORMAT. C  1  ’.6A2.13) 

68 

IF  (PLATFH  (INDEX.  18)  .EQ.O)  GO  TO  30 

69 

HR I  TE  (6.  129)  (NAMEWP  (PLATFH  ( 1  NDEX,  1 8)  .  J)  .  J=  1 , 6)  .  WEP  (PL ATFM  1 1 NDE X, 

70 

1  181  .21 

71 

129 

FORMAT  ( ’  2  ’ ,  6A2,  131 

72 

C 

73 

c 

71 

c 

COMMAND  INPUTS 

75 

c 

76 

c 

77 

30 

WRITE  16. 112) 

78 

1  12 

FORMAT  I//’  NO  COMBAT  ENTER  N(ONE)  OTHERWISE  ENTER’/ 

79 

1’  TARGET  LOCATION’/’  WEAPON  STSTEM  NUMBER  IN  THIS  FASHION’//) 

80 

C 

81 

C 

82 

C 

83 

c 

C0M8AT 

81 

c 

85 

c 

86 

READ  15. 113)  INPUT 

87 

113 

FORMAT  (70A1 1 

88 

CALL  INVRT1  (INPUT. TEST! 

89 

IF  (TEST.EQ.NONEl  GO  TO  10 

90 

CALL  NONVRT  ( 1  NPUT ,  BUFFER  (INDEX,  21  1 

91 

READ  (5.  113)  INPUT 

92 

CALL  NONVRT ( I NPUT . BUFFER IINDEX.  I)  ) 

93 

GO  TO  10 

91 

C 

95 

c 

96 

c 

LAUNCH  AIRCRAFT 

97 

c 

98 

c 

99 

35 

WRITE (6. 1  111  I NAME 

100 

111 

FORMAT  (//IX. 6A1,  ’  IS  NOW  BEING  LAUNCHED’//) 
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PLRTFM  I  INDEX, 11) 


101 

102 

103 

ION 

105 

106 

107 

108 

109 

110 
1 1 1 
112 
113 
119 

115 

116 

117 

118 

119 

120 
121 
122 
123 
129 

125 

126 

127 

128 

129 

130 

131 

132 

133 
139 

135 

136 

137 

138 

139 

190 

191 

192 

193 
199 

195 

196 

197 

198 

199 
150 


C 

c 

C  MOVEMENT 

C 

C 

90  WRITE  16,  1 151 

115  FORMAT ( '  MOVEMENT  NOT  DESIRED  ENTER  N (ONE)  OTHERWISE  ENTER*/ 

1*  SPEED*/’  DESTINATION  HEX  IN  THIS  FASHION*//) 

READ  15, 113)  INPUT 
CALL  INVRT1  (INPUT, TEST) 

IF  (TEST.EQ.NONE)  BUFFER  (1,9)  »PLATFM(I,3) 

IF  (TEST.EQ.NONE)  GO  TO  50 

CALL  NONVRT ( I NPUT , BUFFER  ( 1 NDEX , 3) ) 

READ  15,113)  INPUT 

CALL  NONVRT ( I NPUT , BUFFER  ( I NDEX , 9) ) 

C 

C 

C  TEST  FOR  GOING  RIGHT  DISTANCE  AND  NOT  EXCEEDING  MAX  SPEED 

C 

C 

CALL  01  STAN  (BUFFER  (IN0EX.9)  ,  PLRTFM  (INDEX,  3)  ,DIST> 

IF  (DIST.LE.  BUFFER  (INDEX, 3)  .ANO. BUFFER  (INDEX. 3)  .LE.PLATFM  (INDEX,  12) 
1 ) GO  TO  SO 
WRITE  (6, 1 16) 

116  FORMAT (*  TOU  HAVE  EITHER  SET  A  SPEED  HIGHER  THAN  MAX*/*  OR  ATTEMP 
1TE0  TO  GO  FURTHER  THAN  SET  SPElD*) 

GO  TO  90 
C 
C 

C  SEARCH 

C 

C 

50  WRITE  (6,  1 171 

117  FORMAT  (/*  ENTER  SEARCH  MISSIONS  AS  FOLLOWS! */T7, *0  NONE  SCHEDULED 
1  */T7,  *  1  ACTIVE  M1SS10NVT7,  *2  PASSIVE  MISSION*//) 

RE  AO  (5, 113)  INPUT 
cHLL  NONVRT  (INPUT, X) 

IF  (X. GT . 0.  AND. BUFFER  (INDEX,  3)  .GT.O)  WRITE  16, 118) 

118  FORMAT C  A  SEARCH  MISSION  CANNOT  BE  PERFORMED  WHILE  THIS  PLATFORM* 
1/*  IS  MOVING  (NOT  HOVERING  OR  LOITERING).’/) 

IF  (X.GT.0.AN0.BUFFER(INDEX,3)  .GT.O)  GO  TO  50 
BUFFER ( INDEX, 5) -X 
C 
C 

C  COMMANO  STATUS/INPUT  COMPLETION 

C 

C 

WRITE  (6. 119) 

119  FORMAT ( '  TOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS'/*  COMBAT t  *) 
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151  IF  (BUFFER  (INDEX.  1 1  .  EQ.  Q)  WR  1  TE  (6. 1  20) 

152  120  FORMAT  C  NONE  SCHEDULED') 

153  IF  (BUFFER  (InOEX.  I)  .GT.Ol  WRITE  (6.  1211  (NAMEWP  (PLATFM  ( INOEX,  BUFFER  ( IN 

154  1DEX.  II  *16)  .  Ji  .  J-1.6)  .BUFFER  (INOEX.  2) 

155  121  FORMAT (IX, 6A2.  '  WEAPON  TGT  LOC AT  I  ON ' . 1 5) 

1 5t>  IF  (BUFFER  (INDEX,  3)  .  EQ .  0)  wR  I  T  E  (6.  1  22)  PL  ATFM  ( I N0EX,  3) 

15?  122  FORMAT  C  SPEEO  IS  2ER0  AT  LOCATION  '.IN) 

isa  if (Buffer  i index. 31 .gt.oi hri te  i6. 1231  buffer  i index, i> .buffer (index, 

159  131 

160  123  FORMhTi*  DESTINATION', 15.  '  SPEED*. 13) 

161  IF (BUFFER  (INDEX. 5)  . EQ. 01 WR I T E  (6,129) 

162  121  FORMAT  l '  THERE  IS  NO  SEARCH  MISSION  SCHEDULED'/) 

163  IF  (8UFFER  (IN0EX.5I  .EQ.  1 1  wR!  TE  (6,  125) 

164  125  FORMAT  i  '  AN  ACTIVE  SEARCH  MISSION  HILL  BE  CONDUCTED'/) 

165  IF  (BUFFER  ( I NQEX .  5)  . EQ.  21  HR  1  TE  (6.  1 26) 

166  126  FORMAT  i  '  A  PASSIVE  SEARCH  MISSION  WILL  BE  CONDUCTED'/) 

167  RETURN 

16B  END 
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SUBROUT  1NE  STATSS  (USED,  1  NDE  X .  1  NOME ,  NAME  HP) 

c 

c 

C  0 1 SPL ATS  1  NO! V 1 DUAL  SUFACE  SHIP/SUBMARINE  STATUS  OF  COHORT 

C  ACTIONS.  MOVEMENT  AND  SEARCH  RESULTS.  ACCEPTS  COMBAT 

C  MOVEMENT  AND  SEARCH  COMMANOS.  ALL  INPUT  IS  PLACED  IN 

C  A  BUFFER  ANO  OVERlAtED  AT  GAME  TURN  EXECUTION 

C 

c 

IMPLICIT  INTEGER  (R-2) 

COMMON  PLATFM  1100,  37)  .DETECT  1100,4)  .HEP  129.  3)  .HIT  (100.3)  .SUNK  (100) 

1 ,  HATER  1 1 00)  .NAME  (100,6)  ,  BUFFER  1100,8)  .BLUPAS(B)  , REDPAS  (6)  , 

21  PLAT. 1  AIR, 1  SURF. I  SUB. ADV, PD V, AE V. PE V. ERAT 1 C. BLUAI R, REDA I fi, BlUSUR. 
3REDSUR.8LUSU8.RE0SO8.PBA1R1. PBAI R2, PRAI R 1 , PRAIR2, PBSuRl , PBSUR2. 
4PRSUR1 , PRSUR2 , PBSU8 I , PBSUB2 , PRSU8 1 , PRSUB2 
0IMENS10N  INAME (6) .NAMEHP (29.6) .INPUT (70) 

DATA  NONE/ *N  '/ 

USEO* 1 
C 

c 

c  STATUS  D15PLATS 

C 

C 

HR1 TE  IE. 1001  I  NAME. PLATFM (INDEX. 31  . PLATFM  1 1 NDEX. 4) 

100  FORMAT (///IX. 6AI . *  IS  LOCATED  AT  POS IT  I  ON  1 . IS. *  SPEED’. 12) 
TEmP.-FlATFM  (INDEX. 11) 

IF  (PLATFM  (INDEX.  1  1 1  .  LT .  Ol  HR  1  TE  16.  99)  PL  ATFM  ( I  NDEX .  1 2)  .TEMP 
99  FORMAT  i //T 10.  ’NOTE’/ ’  DUE  TO  PREVIOUS  ANO/OR  CURRENT  DAMAGE  SUFFER 
1E0.  MAX  SPEEO  IS  NOH’,12/’  THE  SHIP  HAS  BEEN  HIT’, 12.’  TIMES’//) 

C 

C 

C  PLATFORM  HIT  LAST  GAME  TURN? 

C 

C 

00  10  .-1.100 

IF  (MIT  1 . 1)  .LT.O) GO  TO  11 

IF  (MIT  1 1.  1)  .NE.  IN0EX1G0  TO  10 

IF  (HEP  1.31  T  (1,2)  .3)  .NE.  3)  HR  I  TE  (6. 101) 

101  FORMAT!'  IT  HAS  BEEN  HIT  8T  A  NON-TORPEDO  HEAPON’I 
IF  (HEP  (HIT  (1 ,2)  ,  3)  .E0.3)  HRITE  (6. 1021 

102  FORMAT C  IT  MAS  BEEN  HIT  BT  A  TORPEDO’) 

10  CONTINUt 
C 

C 

C  COMBilT  ACTION  RESULTS 

C 

C 

11  IF  (PLATI  M  (INDEX.  1)  .£0.0)  GO  TO  30 
HRITE  (6.  103)  INAME, PLATFM  (INDEX, 2) 

103  FORMAT (/rs. ’THE  ’.6AI,’  ATTACK  ON  TARGET  LOCATED  AT’.IS/I 
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51 

52 

S3 

54 

104 

55 

56 

10S 

57 

58 

59 

106 

60 

61 

107 

62 

20 

63 

C 

64 

C 

6S 

c 

66 

c 

67 

c 

68 

30 

69 

108 

70 

71 

72 

109 

73 

74 

110 

75 

76 

111 

77 

78 

112 

79 

80 

113 

81 

82 

83 

84 

85 

86 

87 

88 

1141 

89 

90 

91 

1142 

92 

93 

94 

1151 

95 

96 

97 

1152 

98 

40 

99 

41 

100 

116 

DO  20  1-35.37 

IF  IPLATFM  (INDEX.  11  .EQ.O)  GO  TO  20 

WRITE  (6. 104)  (NAMEWP  IPLATFM  (INDEX.  1-14)  .  J)  ,  J-l  ,6) 

FORMAT  l*  RELEASE  OF  *.6A2,’  RESULTED  IN') 

IF  IPLATFM  (INDEX.  11  .  LE .  6)  HR  I TE  16 .  1 05)  PLRTFM  ( 1 NDEX,  1 1 
FORMAT ( ’  A  DETONATION  Hi TM  PROBABILITY  V  OF  A  MIT  OF 
111.  ’  OUT  OF  6  VI 

IF  (PL ATFM  (INDEX.  11  .  EQ.  7)  WRITE  (6,  1061 
FORMAT (’  A  DETONATION  (MIT)  V) 

IF  (PL  ATFM  (INDEX.  I )  .  EQ.  81  HR  I  TE  (6 ,  1 071 

FORMAT!*  NO  DETONATION  -  NO  DISTURBED  WATER  MARKER’/) 

CONTINUE 


SEARCH  MISSION  STATUS 


IF  (PL  ATFM  (INDEX.  7)  .EQ.O)  WRITE  (6,  108) 

FORMAT  V  IT  HAS  NOT  ASSIGNED  A  SEARCH  MISSION’) 

IF  (PL ATFM  ( 1  NOE X,  7)  .EQ.  0)  GO  TO  50 
WRITE (6. 103) 

FORMAT!’  IT  HAS  ASSIGNED  THE  FOLLOWING  SEARCH  MISSION  (S)  ') 

IF  (PLATFMUN0EX.7)  .EQ.  1)  WRITE  (6,110) 

FORMAT  ( ’  ACTIVE  ’) 

IF  (PL ATFM  (INDEX. 7)  .EQ.21  HRITE  (6,111) 

FORMAT  ( '  PASSIVE  ’) 

IF  (PL ATFM  (INDEX.  7)  .EQ.3I  HRITE  (6.  1 12) 

FORMAT!’  ACTIVE  AND  PASSIVE’) 

HRITE  (6.  1 13) 

FORMAT C  TYPE  LOCATION  METHOD  RANGE’) 

X-0 

DO  <40  J-l.  100 

IF  (DETECT  (1,11  .LT.O)  GO  TO  <41 
IF  (DETECT  (1 .  1)  .NE.  INDEX)  GO  TO  <40 
X-l 

IF  IPLATFM  (DETECT  (1 , 2)  .  8)  .  EQ.  1 .  AND. DETECT  (1 . 3)  . EQ.  0)  WRITE  (6. 1  1<4 1 ) 
IPLATFM  (DETECT  (1,2),  31  .DETECT  (I  ,<!) 

FORMAT  l’  SURFACE ’,5X.  1  <4, 5X,  ’PASSIVE  M 6) 

IF  IPLATFM  (DETECT  (1.2)  .8)  . EQ.  2.  AND. DETECT  (1.3)  .EQ.O)  HRITE  (6. 1 1<42) 
IPLATFM  (OETECT  (1.2)  .31  .DETECT  (1,4) 

FORMAT  ( ’  SUBMARINE  \3X,  14, 5X,  ’PASSIVE  ’,16) 

IF  IPLATFM  (DETECT  (1.2)  ,8)  .EQ.  1.  AND. DETECT  (1 . 31  .EQ.  II  HRITE  (6.  1 1511 
IPLATFM  (OETECT  (1,2)  .3)  .DETECT  (1,4) 

FORMAT!’  SURFACE \5X.  14, 5X.  ’ACTIVE’,17) 

IF  IPLATFM  (DETECT  (1,2)  .8)  .  EQ.  2.  AND.  DETECT  (1 , 31  .  EQ.  1 )  HRITE  (6,  1  1 52) 
IPLATFM  (DETECT  (1 , 2)  .  3)  .DETECT  (1,4) 

FORMAT ( ’  SUBMARINE ’.3X, 14. 5X. ’ACTIVE M 7) 

CONTINUE 

IF  (X. EQ.O)  WRITE  (6,  116) 

FORMAT  !’  THERE  HERE  NO  DETECTIONS’) 
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101 

102 

I  OS 
101 

105 
10b 

io; 

106 

109 

110 

I I  1 
1  12 
113 
1  19 

1 15 

116 

117 

118 

119 

120 
121 
122 
123 
129 

125 

126 

127 

128 

129 

130 

131 

132 

133 
139 
135 
1  36 
137 
,138 
139 

190 

191 

192 

193 
199 

195 

196 

197 

198 

199 
1 3U 


C 

C 

c  it-  sunk  -  skip  command  inputs 

c 

c 

50  If  lPl.ATFMllN0EX.20l  .EQ.OI  WAITE  16.  1  17)  1NAME 

117  FORMAT  (//*  SINCE  THE  *.6A1,*  HAS  BEEN  SUNK.  NO  COMMAND  INPUTS*. 

1  *  CAN  BE  ACCEPTED*) 

IF  (PL ATFM  (INDEX.  201  .EQ.  0)  RETURN 
MR!  IE  (6.  1  391  (NAME  (INDEX.  J)  .  J-l  .6) 

139  FORMAT  (IX. 6A1. *  WEAPON  STSTEM  IS)  * /TS , *T TPE * . T 1 5. ‘RANGE  ’  I 
00  51  1-1,3 
11-1*20 

IF  (PlATFM  (INDEX.  1 1)  .EQ.OI  GO  TO  52 

WRITE  (6.  135)  1 .  (NHMEWP  (PL  ATFM  1 1 NOEX .  II )  .  J)  .  J- 1 . 6)  .  HEP  (PL  ATFM  1 1 NOEX. 
1111  .21 

135  FORMAT  (12. 2X.6A2, 13) 

51  C0N11NUE 
C 

C 

C  COMMANO  INPUTS 

C 

C 

52  WRITE  (6 .  1181 

118  FORMAT!//'  NO  COMBAT  ENTER  N  (ONE  1  -  OTHERWISE  ENTER */*  TARGET  LOCA 
1 T 1  ON  * / *  WEAPON  SYSTEM  NUMBER  IN  THIS  FASHION*//) 

RE  AO  (5. 1 19)  INPUT 

119  FORMAT  I70A1I 

CALL  1NVRT1  (INPUT, TEST) 

IF  (TEST. EQ. NONE)  GO  TO  70 

CALL  NONVRT  (INPUT, BUFFER  (INDEX, 2)  ) 

READ  (5,  I  19)  INPUT 
60  call  nonvrt  (Input. hepon) 

BUFFER (INDEX. 1 l -I 
BUFFER  ( 1 NOEX, WEP0N*5l --1 
HR! IE (6,1201 

120  FORMAT C  TO  EMPLOY  ANOTHER  WEAPON  SYSTEM,  ENTER  THE  STSTEM  NUMBER* 
1/*  OTHERWISE  ENTER  N(0)*//l 

READ  (5.  119)  INPUT 
call  invrti  (Input. test) 

IF  (TEST. EQ. NONE) GO  TO  70 
GO  TO  60 
C 

c 

C  MOVEMENT  COMMANDS 

C 

C 

70  HRI  I E  !6,  1 2 1 1 

121  FORMAT  (//*  TO  SCHEOULE  MOVEMENT  ENTER*/*  SPEED’/*  DESTINATION 
1  IN  THAT  OROER,  OTHERWISE  EnTER  N(ONE)*//) 
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151 

152 

153 

154 

155 
15b 

157 

158 

159 

1 60_ 
161 
162 

163 

164 

165 

166 
167 
lbH 

169 

170 

171 

172 

173 

174 

175 

176 
1  77 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


REAO  (5,  1  191  INPUT 
CALL  1NVRT1  (INPUT  .  TEST  1 

IP  (TEST  .  £Q.  NONE)  BUFFER  1 1 NOEX .  4)  •PLBTFH  (INDEX,  3) 

IF (TEST. EQ. NONE) 00  TO  80 

CALL  NONVRT  (INPUT, BUFFER  (INDEX, 3)  ) 

READ  (5,  119)  INPUT 

CALL  NONVRT ( 1 NPUT . BUFFER (INDEX,  4)  ) 

C 

C 

C  TEST  FOR  GOING  RIGHT  DISTANCE  AND  NOT  EXCEEDING  HAX  SPEED 

C 

C 

CALL  GIST AN (BUFFER  1  INDEX, 4) . PL ATFH 1 1 NDEX, 3) ,D1ST) 

IF  (01  ST.  LE.  BUFFER  (INDEX,  3)  .AND.  BUFFER  (INDEX,  3)  .  LE .  PLATFM  ( INDEX,  1 2) 
1)  GO  TO  80 
WRITE  (6.  1221 

122  FOfihAT  ( '  TOU  HAVE  EITHER  SET  A  SPEEO  HIGHER  THAN  HAX  CAPABLE  OR  AT 
1 TEHPTEO  V  *  TO  GO  FURTHER  THAN  THE  SPEED  SETTING  HILL  ALLOWl 

GO  TO  70 
C 
C 

C  SEARCH  COHHANOS 

C 

C 

80  HR1TEI6.123I 

123  FORMAT  (//*  ENTER  SEARCH  MISSIONS  AS  FOLLOWS:  VT7.  ’0  NONE  SCHEDULE 
1 0  '  /T7.  '  1  ACTIVE  MISSION  VT7,  ‘2  PASSI  VE  MI  SSI  ON  VT7,  *3  ACTIVE  AN 
20  PASSIVE  V/l 

READ  (5.  119)  INPUT 
call  nonvrt  i input, x) 

IF  (X.EQ.  3.  AND.  PLATFM  (I  NDEX,  24)  .  NE .  1 )  HRI  TE  (6, 1 24) 

124  FORMAT (’  AN  ACTIVE  AND  PASSIVE  SEARCH  MISSION  CANNOT  BE  PERFORMED 
1  S1MULTANE0USLT  V*  BT  THIS  PLATFORM*) 

IF  (V .  EQ.  3.  AND.  PL  ATFM  (I  NDEX.  24)  .  NE .  1 )  GO  TO  80 
BUFFER  i  INDEX, 5) »X 
C 
C 

C  STATUS/COMMAND  INPUT  COMPLETION 

C 

C 

WRITE  (6,  1251 

125  FORMAT  (/’  TOU  HAVE  ENTERED  THE  FOLLOWING  COMMANDS*/*  COMBATi*) 

IF  (BUFFER  (INDEX.  II  .  EQ.  0)  WRITE  (6.  126) 

126  FORMAT  (T10. ’NONE  SCHEDULED*) 

I F  (BUFFER  (INDEX,  1 )  .  ED.  0)  GO  TO  91 
DO  90  I »6. 8 

IF  (BUFFER  (INDEX.  I)  ,GE.  II  GO  TO  90 

WRITE  (6.  127)  (NAMEWP  (PLATFM  (INDEX.  !♦  IS)  ,  J!  .  J-l  ,6)  .  BUFFER  1 1  NOEX,  2) 

127  FORMAT  IT10.6A2, *  WEAPON  TGT  LOCATION* , 15) 

90  CONTINUE 
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20!  9!  IF  (BUFFER  (INDEX.  31  .  E0. 0)  WRi  TE  (6, 1 28)  PLATFM  (1  NDEX,  3) 

202  128  FORMAT  I1  SPEED  ZERO  LOCAT  1  ON  1 ,  I  5) 

20  3  IF  iBuFFtR  (INDEX.  3>  .GT.Ol  WRITE  (6.  1 29)  BUFFER  1 1  NDEX,  91  .  BUFFER  1 1  NDEX.  3 

209  II 

2QS  129  F ORMA I  I  '  DESTINATION  *,14,  1  SPEED1, 12) 

206  X-BUFFER  (INDEX. Si 

207  IF (X.EQ.OI  Wfll TE id, 120) 

208  130  FORMAT C  NO  SEARCH  MISSION1) 

209  IF  (X.EQ.  1 1  WR1 TE  (6. 131) 

210  131  FORMAT  I1  ACTIVE  SEARCH  MISSION1) 

211  IF  (X. £0.2)  WRITE  (6.  132) 

212  132  FORMAT  (‘  PASSIVE  SEARCH  MISSION1) 

213  IF  (X.EQ. 31  WRITE  (6.  1331 

214  133  FORMAT  I1  ACTIVE  AND  PASSIVE  SEARCH  MISSION1) 

2 1 5  RETURN 

216  END 
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SUBROUTINE  CONTRl 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
1 1 
1? 
13 
1  4 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
4  7 

48 

49 

50 


L' 

C 

C  THIS  SUBROUTINE  EXECUTES  ft  GAME  TURN  OF  COMBftT , MOVE  fiNO  SEARCH 

C 

c 

IMPLICIT  INTEGER  (A-H.P-2) 

COMMON  PLATFM  ( 100.  37)  .DETECT  II  00.4)  .HEP  129,31  ,  HIT  1100,  3)  .SUNK  1100) 
l.HflrERIIOOl  .NAME  (100.61  .  BUFFER  1 1 00.  8l  ,  BLUPHS  (6)  .  REDPflS  IS)  . 

21PLHI. 1HIR, I  SURF, ] SUB, ADV , PDV , RE V. PE V , ERRT  J C, 8LUA I R, REOft 1 R. BLUSUR. 
3RE0 SUR,  SLUSIjB.  nEOSUB  ,PBAlRI.PBftIR2,PRfllRl,  PRfl  I R2 ,  PBSURl ,  P8SUR2 . 
4PRSUR1 .PRSUH^, P8SUB1 . P8SUB2, PRSUBl . PRSUB2 
C 
C 

C  HORKING  MATRIX  INITIALIZATION 

C 

C 

DO  10  I -1.1 00 
HATER  III  «-l 
HIT  (I .  D  --1 
10  CONTINUE 

00  20  1  -  1 . I  PL  AT 
PLATFM  (1 .  1 1  -0 
PLATFMI1.6)  *0 

20  CONTINUE 

IF  UAIR.EO.Ol  GO  TO  21 
00  21  1*1 . 1AIR 
PLATFMlI.23)  »Q 
PLATFMIl. 241-0 

21  CONTINUE 
J- I RI R- 1 

DO  22  I-J. I  PLAT 
PLATFM  II .  351  -0 
PLATFMII.36)  »0 
PLATFM  (I.  37)  -0 

22  CONTINUE 
C 

C 

C  MOVES  N0NFLT1NG  AIRCRAFT  HlTH  MOTHER  SHIP 

C 

C 

IF  (IA1R.EQ.0I  GO  TO  24 
DO  24  1-1 .  I  AIR 

IF  (PLATFM  (1 .  1  II  ,EQ.  II  GO  TO  24 
buffer (1,4)  -  buffer  iplatfm d,2n  ,4) 

24  CONTINUE 

C 

C 

C  QVERLAT  BUFFER  INTO  PLATFM 

C 
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51 

52 

53 

54 

55 
5b 
57 

56 

59 

60 
61 
62 
63 
69 

65 

66 

67 

68 

69 

70 

71 

72 

73 
71 

75 

76 

77 

78 

79 

80 
81 
82 
8  3 

84 

85 
66 
67 

86 
69 

90 

91 

92 

93 

94 

95 
98 

97 

98 

99 

100 


C 

00  25  1*1 . IPLAT 
PLfllFM  (1.11  -8UFFER1I.  II 

plrtih  1 1 . 2>  «buffer  i  i  ,  2i 

PLAIFH  lI.4l-BUFFERll.3l 
PL  RTFrtl  1.51 -BUFFER  <1. 4) 

PLATFM  ll ,  71  -BUFFER  11,5) 

IF  l! .lE. I  AIR) GO  TO  25 

PLATFM  1 1. 21 1  -PLATFM  (1.21 1  -BUFFER  (1 .6) 

PLATFM  (1 . 221  -PLATFM  (1 .221  -BJJFFER  1 1 . 7) 

PLATFM  (1.231 -PLATFM  (1.23) -BUFFER  11.8) 

25  CONTINUE 

C 

c 

C  COMBAT  HND  MOVE  EXECUTION 

C 

C 

CALL  COMBAT 
CALL  MOVE 
C 

c 

C  INITIALIZATION  OF  DETECT  MATRIX 

C 

c 

00  30  1-1,100 
DETECT  (1.  11--1 
30  CONTINUE 

C 

c 

C  PLACE  DISTURBED  WATER  MARKERS  IN  PLATFORM  MATRIX 

C 

C 

NUM-0 

DO  40  1-1 , 100 

IF  (HATER  (I)  .LT.  11G0  TO  50 

NUM-NUM*! 

40  CONTINUE 

50  IF  (NUM.EQ.01 GO  TO  80 

DO  70  I » 1 , 1  PL AT 

IF  (PLATFM  (1 ,61  .EQ.3.0R.PLATFM  11.20)  .£0.0)  GO  TO  70 
DO  60  J-l.NUM 

CALL  01STRN  1PLATFM  ll ,  3)  .HATER  U)  ,01  ST) 

IF  (OIST.LE.  1)  PLATFM  (1.6)  -3 
60  CONTINUE 

70  CONTINUE 

C 
C 

C  EXECUTE  SEARCH  PHASE 

C 

C 
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CALL  search 


101 

102 

103 

104 

105 

106 
10/ 
10b 
100 
1  10 
1  1  1 
1  12 
1  1  3 
1  14 
1  IS 
1  16 
117 
1  la 


80 

C 

c 

c  initialization  ok  input  command  Buffer 

c 

c 

00  100  1*1. I  PLAT 

BUFFER ( 1 . 1 1 -0 

BUFFER  l!  .21  *0 

BUFFER  II.  3l  *0 

BUFFER  11.41  -PLHIFM  11 . 3) 

BUFFER  11.51  =0 
buffer  i  i . bi *  i 
BUFF  Eft!  1 . 7) «1 

Buffer  i  i  . bi  »i 

100  CONTINUE 
RETURN 
ENO 
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SUBROUTINE  COMBAT 


1 

2 

3 
1 

5 

6 

7 

8 

9 

10 
1 1 
12 

13 

14 

15 

16 
1  7 
18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

4  I 

42 

43 

44 

45 

46 

47 

48 

49 

50 


C 

C 

c  tmis  subroutine  activates  the  master  combat  phase 

C  AND  CONTROLS  ALL  COMBAT  RELATED  SUBROUTINES 

C 

c 

IMPLICIT  INTEGER  (A-H.P-Z) 

COMMON  PL  ATE  M  1 1 00.  371  .  DETECT  ( 1 00.  4)  .  WEP  129,3)  .HIT  (100.31  .SUNK  (100) 
1  HATER  1 1001  .NAME  1100,61  .  BUFF  ER  1 1 00.  8)  .BLUPAS  (61  .REDPAS  16) 

2 1  PLAT. I  AIR. I  SURF. 1  SUB. ADV . PDV . AE V . PEV . ERAT I C . BLUA1 R. REDAIR. BLUSUR, 
3HE0SUR, 8LUSU8. REOSUB. PB A I R 1 , PBA1 R2. PRA 1 R 1 . PRA I R2 . PBSuR 1 . PBSUR2. 
4PRSUR1 .PASUR2. PBSUB1 . PBSUB2, PRSUB 1 , PRSU82 
00  30  ATTk*I. IPLAT 
IF  iPLATFMiATTK.201  .EQ.OIGO  TO  30 
IF  (PlATFM  (AT TK. 1 1  .EQ.Ol GO  TO  30 
IF  (PLATFM  (AT  Tk.BI  ,n£.  Ol  GO  TO  10 
C 
C 

C  CONTROLS  AIRCRAFT  HEAPON  EMPLOYMENT 

C 

HEP  1  NO- 1 6*PL  ATFM  (ATTk. 1 1 
HEP3UP-14»PlATFM (ATTK. 1 1 

CALL  FIRE (AITK.hEPINO.HEPSUP. 1M1T. 1TAR.PRHIT) 

X-PLATFMlATTK.HEPINOl 

IF (X.LT.4.0R.X.GT. 19) PLATFM (ATTK. HEP  I  NO-6) -PRHIT 
IF  (X.GE.4.AN0.X.LE.  19.  AND.  IHIT.EO.  IIPLATFMIATTK,  HEPI  N0-*6I  -7 
IF  (X.GE.4.AN0. X.LE. I9.AN0. IMIT.EQ.O) PLATFM (ATTK. HEPIN0+6) -8 
IF  (IHIT.EO. I ) CALL  FILHIT ( AT TK. PL ATFM (ATTK . HEPI NO)  , I  TAR) 

GO  TO  30 
C 
C 

C  CONTROLS  SURFACE  AND  SUBSURFACE  HEAPON  EMPLOYMENT 

C 

c 

10  00  20  HEPIN0-2I.23 

IF  (PLATFM  (ATTK,  HEPI  ND)  .  GE  .  0)  GO  TO  20 
PLATFM (ATTK, HE  PI  NO) .-PLATFM (ATTK, HEP  I  NO) 

HEPSUP-HEP I  NO- 6 

CALL  FIRE  (AT  TK , HEPI NO, HEPSUP , I  Hi T , I  TAR. PRHIT) 

X-PLATFM  (ATTK.HEPINOI 

IF (X.LT.4.0R.X.GT. 19) PLATFM (ATTK, HEP  I  NO* 14) -PRHIT 
IF (X.GE. 4. AND. X.LE. 19. AND. IHIT.EO. I) PLATFM ( AT TK. HEPI ND« 1 4 ) -7 
IF  (X.GE.4. ANO. X.LE. I  9. AND. IHIT.EQ.O) PLATFM  (ATTK, HEPI NO* 14) -8 
IF  (IHIT.EO. 1) CALL  FILHIT  (ATTK. PLATFM (ATTK. HEP1N0) . ITAR) 

20  CONTINUE 

30  CONTINUE 

C 
C 
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51 

C 

C0N6AT  EXECUTION  OVER  -  OAHAGE  ASSESHENT  PHASE 

52 

C 

53 

C 

51 

35 

00  40  1- l . 100 

55 

IF  (Hi  T  (1 .  H  .LE.OIGO  TO  50 

56 

CALL  OAMREC  (HIT  (1.  1)  1 

5? 

40 

CONTINUE 

sa 

WRITE  16.2001 

59 

200 

FORMAT  1'  THERE  WERE  GREATER  THAN  100  HITS  >100  HITS  NOT 

60 

C 

61 

C 

62 

C 

COMPRESS  DISTURBED  WATER  MATRIX 

63 

c 

6*1 

c 

65 

c 

6b 

so 

i»0 

67 

60 

1-1*1 

68 

IF  twRTERlll  .LT.OlGO  TO  100 

69 

J-I 

70 

70 

J»J*1 

71 

IF  (WATER  (31  .LT.OlGO  TO  60 

72 

80 

IF  (WATER  (11  .NE.  WATER  IJ1I  GO  TO  70 

73 

DO  90  K* J. 100 

79 

IF  (WATER  (K1  .LT.OlGO  TO  80 

75 

HATER  IK)  “WATER  «K*  1 1 

76 

90 

CONTINUE 

77 

IF  (1 .GE. 1001  GO  TO  100 

78 

GO  TO  60 

79 

100 

RETURN 

80 

END 
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SUBROUTINE  FIRE (RT TK. HEP  1 ND. HPLEFT . 1HI T . 1  TAR. PRHI T) 


2 

3 

5 

6 
1 
8 

9 

10 
1  1 
12 
13 

19 
is 
16 
1  7 
18 

19 

20 
21 
22 
23 
29 

25 

26 

27 

28 

29 

30 

31 

32 

33 
39 

35 

36 

37 

38 

39 

90 

91 

92 

93 
99 

95 

96 

97 

98 

99 
50 


C 

C 

C  THIS  SUBROUTINE  CONDUCTS  ALL  FIRINGS.  CALCULATES 

C  PROBABI L 1 T7  OF  HIT,  DRAMS  A  RANDOM  NUMBER  AND 

C  DETERMINES  HIT  OR  HISS 

C 
C 

implicit  integeria-zi 

REAL  RN 

COMMON  PL ATFM  (100,  37)  .OETECT  (100,91  .WEP  (29,31  .HIT  (100,3)  .SUNK  (1001 

1  .WATER  1 1  OOl  . NAME  1 1 00 . 6)  .  BUFFER  ( 1 00.  8)  ,BLUPAS(6)  .  REDPAS  161  . 

2  I  PLAT. lHlfl. 1SURF. I SU8. AOV . PDV . AE V. PE V . ERAT 1 C . BLUA I R. REDA I R. BLUSUR. 
3RE0SUR. BLUSUB, REOSUB. P8A1 R 1 , PBA1 R2 . PRA1R1 . PRAIR2. PBSUR1 . PBSUR2. 
9PRSUR1 , PRSUR2. PBSU81 . PBSUB2, PRSUBl , PRSUB2 

DATA  1  S1.ED/S555S/ 

1  MI T«Q 

If  (PLATFM(ATTK.NPLEFT)  .I.E.OlGO  TO  30 
C 

c 

c  CHECK  IF  COMBAT  LOCATION  IS  A  TARGET  PLATFORM 

C 

C 

PLATFM  (ATTK.HPLEFT) -PLATFM  (ATTK.HPlEFT) -1 
1TAR.0 

DO  10  INQEX-I.IPlAT 
IF  (PLATFM  (INDEX,  20)  .£0.0)  GO  TO  10 
If  (PLATFM  (AtTK.  21  .E0.PLATFMllN0EX.3l)  1TAR-IN0EX 
10  CONTINUE 

IF  II TAR. £0. 0) GO  TO  30 
C 
C 

c  place  disturbed  hater  marker  at  tgt  location 

C  IF  HEAPON  IS  NOT  A  TORPEDO 

C 

c 

IF  (HEP  (MEPIN0.3)  .E0.31G0  TO  19 
CALL  01  STUR  1PLATFM  (I  T  AR,  5)  ) 

C 

C 

C  CHECK  IF  TARGET  PREVIOUSLY  OETECTEO 

C 

C 

19  Y»0 

DO  15  1*1 . 100 

IF  (DETECT  II.  11  .LT.01G0  TO  16 

IF  (DETECT  (1,1)  .EO.ATTK.  AND. OETECT  (1,2)  .EQ.  1TAR)  Y-l 

15  CONTINUE 

16  IF  (T.Ea.O)  GO  TO  30 
C 
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51 

52 

53 

54 

55 

56 
SI 
56 

59 

60 
61 
62 

63 

64 

65 

66 
67 
6ti 

69 

70 

71 

72 

73 

74 

75 

76 

77 
7a 
79 

so 
81 
8. 
8  3 

84 

85 
81. 

87 

88 


C 

L  LhcCK  If  PROPtrt  WEAPON  AGAINST  PARTICULAR  TARGET 

L 

C 

r  *  l  A  i  R*  I  surf 

IF  IPLATFM  IATTK.HL1  I NOl  .  LE .  2.  AND.  1 T AR.  GT  .  T I  GO  TO  30 
IF (PlATFh (ATTK. WEPlNO) .GE. IS. AND. ITAR.LE.TI  GO  TO  30 
IF (ATTK.LE. 1 .AND. ITAR.GT. Tl GO  TO  20 
IF  lATTK.GT.T. AnQ . 1TAR.GT. IA1R1 GO  TO  20 
RETURN 
C 

c 

C  COMPUTE  RANGE  OF  WEAPON  AGAINST  TARGET  RANGE 

C  COMPUTE  PR08  OF  MIT  AND  DRAW  RANDOM  NR 

C  DETERMINE  MIT  OR  MISS 

C 
C 

20  CALL  01STAN  (PLATFM  (ATTK.2I  .PLATFH  (ATTk.  3)  .01ST) 

CALL  RANGE  (PLATFM (ATTK.WEPlNDI  .ACC, RANG) 

IF  l015T.GT.RANG) GO  TO  40 
PRril  T-ACC-PlATFM(ITAR,19i 
IF  (ACC.EQ.3l  PRH I  T  =  1 
CALL  RANOOM  (I5EE0.RN.  1) 

1 RN*6 . *RN* 1 . 

If  I  (PRHIT-1ANI  .GE.QI  lHlT*  1 
C 
C 

C  IF  WEAPON  IS  A  TORPEOO  ANO  A  HIT  PLACE  DISTURBED 

C  WATER  MARKER  AT  TGT  LOCATION 

C 

c 

IF  IWEP  IWEPJNO,  3)  .  EO.  3.  AND.  IHI  T.  EQ.  I )  CALL  DI  STUB  IPLATFM  1 1  TAR.  5)  ) 

30  RETURN 

40  WRITE  (6.3001  INAME  (AT  TK,  Jl  ,  J*  1 . 6) 

300  FORMAT  (•  ThE  ATTACK  BT  ’,6A1.•  FAILED  AS  TGT  RANGE  »  WEAPON  RANGE’ 
1) 

RETURN 

END 
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SUBROUTINE  01STUR  1LOCAT) 


1 

2 

3 

9 

5 

6 
7 
b 

9 

10 
1 1 
12 
13 
19 

15 

16 

17 

18 

19 

20 
21 


C 

C 

C  PLACES  oisturbeo  hater  markers  at  target  sites 

c 

c 

lHPUCir  INTEGER  1A-H.P-Z) 

COMMON  PL A1FM  (100.371  .DETECT  <100. Ml  .HEP  129.31  .HIT  (100,  3)  .SUNK  II 001 
1 .  HATER  ( 1001  .NAME  (100,61  .  BUFFER  (100,  8)  .  BLUPAS  (S)  ,  REOPAS  (6)  , 

2IPLHT, IhIR. 1  SURF , I  SUB. AOV . PDV. AE V, PE  V . ERAT I C. BLUAI R. REDAI R . BLUSUR. 
3RE0SUR, ULUSU8. REDSUB, PBAI R1 . PBAI R2.PRAIR1.PRAIR2. PBSUR1 , PBSUR2, 
9PRSUR 1 . PRSUR2, PBSUBl . PBSUB2. PRSUB1 . PRSUB2 
00  10  1-1.100 
IF  (HATEli  (11  .LT.Ol  GO  TO  20 
10  CONTINUE 

NR  I TE (6. 100) LOCAT 

100  FORMAT  C  DIMENSIONING  OF  HATER  EXCEEOED-L0C AT  1  ON • , 1 5, *  NOT  FILED') 
RETURN 

20  HATER  (1) -LOCAT 

RETURN 
END 
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SUBROUtlNE  RANGE  (INDEX.  ACC, RANG) 


1 

2 

3 

>i 

5 

6 
7 
a 

9 

10 
1  1 
12 
13 
1<4 

15 

16 
17 


C 

C 

C  RETRIEVES  ACCURACT  RNO  RANGE  INFORMATION 

C  FOR  SPECIFIC  WEAPON  EMPLOTMENT 

C 

C 

implicit  integer ia-zi 

COMMON  Pl  ATFM  1 100,  371  .DETECT  (100, 41  .WEP  (29.31  .HIT  11 00.  3)  .SUNK  (100) 
1  .WATER  (1001  .NAME  (100.  6)  ,  BUFFER  ( 1 00, 8)  .BLUPRS  (6)  .REDPAS  (6)  . 

21  PL AT. I  AIR. ISURF, 15UB.ADV.PDV, RE V . PEV. ERAT I C . BLUA I R. REOAI R. BLUSUR. 
3RE0SUR, 8LUSU8. REOSUB. PBA !  R1 ,  PBRI R2. PRA1R1 . PRA1R2, PBSUR1 . PBSUR2, 
NPRSuR 1 , PRSUR2, PBSU81 , PBSUB2, PRSUB1 . PRSUB2 
ACC-'WEP  ( I  NQE X ,  II 
RANG«WEP  i  INDEX. 2) 

RETURN 

END 
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1 


SUBROUTINE  F  1LH1T  (ATTK.WEPON. I  TORI 


J 

4 

C 

J 

b 

I 

8 

9 

10 
1  I 
12 
13 
IN 

15 

16 
1  7 
18 
19 
2u 
21 
22 
23 


i 

C 

C  FILtS  f)LL  HITS  ON  SHIPS  AS  TMET  OCCUR 

C 

c 

IMPLICIT  INTEGER  (A-Zl 

COMMON  PL  STEM  (100,37)  .DETECT  1100.  N)  .WEP  (29,31  ,HIT  (100.  3)  .  SUNK  (1001 
1  .  WATER  ( 1  QQi  .NAME  (100. 6)  .  BUFFER  (100,  81  . BLUPAS  (6)  .REOPRS  (6)  , 

2 1  PL  AT. 1  AIR. I  SURF . 1  SUB. AOV.PQV.AEV.PEV.ERATlC.BLUAlR.REDAlR. BLUSUfi. 
3RE  OSUR. BLUSU8 . REOSUB .PBA1R1.PBAIR2.PRAIR1 . PRA 1 R2. PBSUR 1 , PBSUR2, 
NPRSuRl.PRSURt1.  P8SUB 1  ,  PBSUB2 ,  PRSUB 1 ,  PRSUB2 
00  20  J=1 . 100 
IF  (HIT  (J.  II  .LT.Ol  GO  TO  30 
20  CON  I  I NUE 

WRITE  (6,1001 

100  FORMAT  Cl  HIT  DIMENSIONING  EXCEEQEO-HlT  NOT  FILED  BUT  RECOROEO’I 
RETURN 

30  HI  T  IJ.  1 1  -lTArl 

HIT  1 J , 2) »WE  PON 
HIT  IJ.3I  =ATTR 
RE  TURN 
END 
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1 

2 

3 

4 

5 

6 
7 
a 

9 

10 
1 1 
1  2 
I  3 
1  9 

15 

16 
1  7 
16 

1 9 

20 
21 
22 
23 
29 
2b 

2b 

27 

28 

29 

30 

31 

32 

33 
39 

35 

36 

37 

38 

39 
90 


SUBROUTINE  OAMflEC  ( I  TOR) 

C 

C 

C  UPDATES  ALL  OAMACE  PUTS  SUNK  SHIPS  IN  SUNK  ARRAY 

C 

c 

IMPLICIT  1 NTEGER  (fi-ZJ 

COMMON  PLATFM  1100.  37)  .DETECT  (100,9)  .  WEP  129,  3)  .HIT  1100.  3)  .  SUNK  (100) 
1  .HATER  1 100)  .NAME  (100.6)  .BUFFER  (100.  81  .BLUPAS  (6)  .REDPAS  (6)  . 

21PLAT, I  AIR. I  SURF. I  SUB. ADV . POV . AEV . PEV. ERAT 1C. BLUAI R. REDA1R. BLUSUR. 
3Rt OSUR , BLUSUB, REDSUB ,PBA]R1,PBA1R2,PRAIR1, PRA] R2 , PBSUR 1 , PBSUR2 . 
9PRSUR1 . PRSUR2, PBSUB 1 . PBSUB2. PRSUB 1 . PRSUB2 
C 
C 

C  CAPABILITY  REDUCTION  FROM  HIT 

C 

C 

DO  10  J-12.17 

PLATFM  (1  TAR,  Jl  -PL ATF M  ( 1  T AR .  J)  -1 
IF  (PLATFM  (I  TAR.  J)  .LT.O)  PLATFM  (1  TAR.  J)  -0 
10  CONTINUE 

PLATFM (I  TAR. 1 I) -PLATFM  (IT AR. 1 1) -1 
IF  (  (PLATFM  (I  TAR.  1 1 )  -PLATFM  (1  TAR,  20)  )  .  GT.  0)  GO  TO  90 
IF  (PLATFM  (1THR.20)  .EQ.O)  60  TO  90 
C 
C 
C 


c 

PLACE  SUNK  SHIP  IN  SUNK 

MATRIX 

c 

c 

00  20  J- 1 . I  PLAT 

IF  (SUNK  (Jl  .LT.O)  60  TO  30 

20 

CONTINUE 

WRITE  (6.200) 

200 

FORMAT  C  SUNK  0IMENSI0N1N6 
RETURN 

E X CE EOED- RE COROE D  BUT  NOT  FILEO 

30 

SUNK (J) -I  TAR 

PLATFM  (SUNK  (Jl  .20)  -0 

90 

RETURN 

ENO 
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SUBROUTINE  MOVE 


1 

2 

3 

14 

5 

6 

7 

8 

9 

10 
1 1 
12 
13 
1<4 

15 
lb 

17 

18 
19 


C 

C 

C  MOVES  ALL  PLATFORMS  TO  THEIR  NEW  LOCATIONS 

C  SUNK  SHIPS  ARE  SKIPPED 

C 
C 

implicit  integer  ia-h.p-zi 

COMMON  PLATFM  (100.  371  .DETECT  1100.V)  .HEP  (29.  31  .HIT  (100.  3)  .  SUNK  (1 001 
1  .WATER  (1001  .NAME  (100.6)  .  BUFFER  (100,8)  ,BLUPAS<6)  . REDPAS  (6)  . 

21  PL AT, 1AIR, I  SURF , I  SUB. ADV , POV , RE  V , PEV, ERAT I C, BLUR1 R, REOAI R, BLUSUR. 
3RE0SUR, BLUSUB,  REDSU8, PBAIR) , PBAIR2. PRAIA) , PRA1 R2, PBSURl . PBSUR2, 
•4PRSUR1 . PRSUR2,  PBSUB)  . PBSUB2,  PRSUBl . PRSUB2 
00  10  I  *  1 , 1  PL AT 
IF  IPL  ATFM  (1 .201  .  EQ.  0)  GO  TO  10 
PLATFMII.3)  -PLATFM(l.S) 

10  CONTINUE 
RETURN 
ENO 


v 
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1 


SUBROUTINE  search 


1 

2 

3 

M 

5 

6 

7 

8 

9 

10 
11 
12 
13 
m 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2M 

25 

26 

27 

28 

29 

30 

31 

32 
93 
39 

35 

36 

37 

38 

39 
MO 
Ml 
M2 
M3 
MM 
M5 
M6 
M7 
M8 
M9 
50 


C 

C 

c 

C  SEARCH  IS  THE  MASTER  SUBROUTINE  FOR  EVALUATING  ALL  SEARCH 

C  MISSIONS  BT  ALL  PLATFORMS 

C 
C 

IMPLICIT  INTEGER  (A-H.P-Zl 

COMMON  PLATFM  (100.371  .DETECT  (100,  M 1  .  HEP  (29.  3)  .NIT  (100.31  .SUNK  (100) 
I .  HATER  (1 00)  .NAME  (100,6)  ,  BUFFER  ( 1 00. 8)  .BLUPASI6)  .  REOPAS  (6)  . 

2 (PLAT, 1  AIR. I  SURF, I  SUB, AO V, POV, AEV. PEV, ERATIC, BLUAIR, REOAI R, BLUSUR, 
3RE0SUR. BLUSUB. REDSUB. PBAI R1 , PBA1R2. PRAIRl , PRA1R2, PBSUR1 . PBSUR2. 
MPRSUR 1 . PRSUR2. PBSUB 1 . PBSUB2. PRSUB 1 . PRSUB2 
1SURAI » I A I R •»  I  SURF 
1 SH 1  P-1  SURF »1SU8 
C 
C 

C  SURFACE  AND  AIR  UNITS  CONDUCTING  ACTIVE  MISSIONS 

C  AGAINST  SUBSURFACE  UNITS 

C 
C 

IF ( 1 SURAI . EG. 0) GO  TO  MS 
DO  20  1-1,1 SUfiAl 

IF  (PLflTFH  (1.71  .EQ.0.0R.PLATFMII.7)  .EQ.2IG0  TO  20 
IF  (PLATFMII.20)  .EO.OIGO  TO  20 
CALL  AOVSUB(I) 

do  io  j-t.isue 

JJ-J-1AIR-MSURF 
IF  (I.EQ.  JJ1G0  TO  10 
IF  (PLATFM  (JJ. 201  .EO.OIGO  TO  10 
CALL  AEV5UB  (I .  JJ.OIST) 

IF (AOV.LT.AEVI  GO  TO  10 
CALL  OETEKIl.  JJ.l.OIST) 

10  CONTINUE 

20  CONTINUE 

C 
C 

C  SURFACE  AND  AIR  UNITS  CONDUCTING  A  PASSIVE  MISSION 

C  AGAINST  SUBSURFACE  UNITS 

C 
C 

DO  MO  I-1.1SURAI 

IF  (PLATFM  (1 , 71  .  EQ.  1 .  OR.  PL  ATFM  1 1 , 7)  .EO.OIGO  TO  MO 
IF  (PLATFMII.20)  .EO.OIGO  TO  MO 
CALL  POVSUB  ( I ) 

00  30  J-l.ISUB 

JJ- J* I A1 R- I  SURF 

IF  (I.EQ.  JJ)  GO  TO  30 

IF  (PLATFM  (JJ,  20)  .EO.OIGO  TO  30 


.  _ _ _  ■  * 
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51 

5? 

53 

59 

55 

56 

57 

58 

59 

60 
61 
62 
63 
69 

65 

66 

67 

68 

69 

70 

71 

72 

73 
79 

75 

76 

77 

78 

79 

80 
81 
82 
83 
69 

85 

86 

87 

88 

89 

90 

91 

92 

93 
99 

95 

96 

97 

98 


CALL  PEVSUB  11.  JJ.01ST) 

IF  (POV.LT.PEV)  GO  TO  30 
CALL  OETEK  (1 .  JJ.0.D1ST) 

30  CONTINUE 

90  CONTINUE 

C 
C 

C  SUBSURFACE  UNITS  CONDUCTING  AN  ACTIVE  MISSION 

C  AGAINST  SURFACE  ANO  SUBSURFACE  UNITS 

C 

c 

95  IF (ISUB.EQ.OI GO  TO  80 

00  60  1-1. I  sue 

1 1  - 1 ♦ i a i r* i surf 

IF  (PlATFH  (11,71  .  EO.O.  OR.  PLATFH  1 1 1 , 7)  .  EQ.  21  GO  TO  60 

IFlPLATFHIll.20l.E0.01GD  TO  60 

CALL  AOvSUB  (III 

00  50  J-I.1SHIP 

JJ- J*!A!R 

IF  (I  1  .EQ.  JJI  GO  TO  50 
IF  (PLATFH  ( J  J.20I  . EQ.Ot  GO  TO  50 
CALL  AEVSUBlII,  JJ.0I5T) 

IF  (AOV.LT.AEVI  GO  TO  50 
CALL  OETEK (11. JJ. l.OtSTi 
50  CONTINUE 

60  CONTINUE 

c 

c 

c  SUBSURFACE  UNITS  CONDUCTING  A  PASSIVE  MISSION 

C  AGAINST  SURFACE  ANO  SUBSURFACE  UNITS 

C 
C 

DO  80  1-1,1  SUB 
1 1  «!♦  I  AIR-*  I  SURF 

IF  IPLATFH1I1.71  . EQ.  1  .OR. PlATFH II 1 .7)  .EQ.OIGO  TO  80 

IF  (PLATFH  (I  1 ,201  .EO.O)  GO  TO  80 

CALL  POVSUB  (111 

00  70  J-l. 1SHIP 

JJ-J-1AIR 

IF  (II.EO.JJ)GO  TO  70 
IF  (PLATFMUJ.20)  .EO.O)  GO  TO  70 
CALL  PEVSUB  (I  I ,  JJ.OIST) 

IF  (POV.LT.PEVIGO  TO  70 
CALL  OETEK  (II.  JJ.0.DI5T1 
70  CONTINUE 

BO  CONTINUE 

RETURN 
END 


>  ✓ 
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SUBROUTINE  AOVSUB  ( ! ) 


this  subroutine  computes  the  active  detection 

VALUE  (ADV)  FOR  ALL  PLATFORMS  WITH 
ACTIVE  SEARCH  MISSIONS 


implicit  integer  ia-h.p-zi 

COMMON  PlATFM  (100, 37)  .DETECT  (100.4)  , HEP  129, 31  .H!Tl|00.3l  .SUNKIIOO) 
1.  HA  I  EM  1100)  .NAME  II 00.6!  .  BUFFER  (100. 8)  .BLUPASI6)  .REDPAS  16)  . 

21PLAT, I  AIR. 1SURF . ISUB. AOV.POV. AEV.PEV.ERAT IC, BLUAIR, REDAIR. BLUSUfl. 
3RE0SUR. BLUSUB. REDSU8, PBA I R1 , PBA1R2. PRAIR1 , PRA1R2. PBSUR1 , PBSUH2. 
MPRSURl . PASUR2, PBSUB1 , PBSUB2. PRSUB1 . PASUB2 
AOV-PLATFM  (1.  131 
IF  (PLAIFm  (1.8)  .EQ.OI  GO  TO  10 
A0V*ADV»PlATFM(I.11) 

IF (PlATFM (1.4) .G£. 1) AOV-AOV-I 
IF  (PLATFM  (1.4)  . GE .  3)  ADV-AOV- 1 
IF  IERATIC.EQ.  11ADV-ADV-2 
AQV*ROV  -  PL  ATFM  (1.6) 

IF  IAOV.LT.OI  AOV=Q 

RETURN 

END 


1 

2 

3 

V 

5 

6 

7 

8 

9 

10 
1  I 
12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 
23 


C 

C 

c 

c 

c 

c 

c 

c 


SUBROUTINE  AEvSuBd.J.OlSTl 


THIS  SUBROUTINE  COMPUTES  ACTIVE  EVASION  VALUES  IAEV) 
FOR  ALL  SURFACE  ANO  SUBSURFACE  UNITS  TO  COMPARE 
WITH  AC1IVE  MISSION  PLATFORMS1  ACTIVE  DETECTION 
VALUE  IhOV) 


IMPLICIT  INTEGER  lA-H.P-Zl 
REAL  T 

COMMON  PLATFM  (100,  37l  .DETECT  (100,41  .HEP  (29. 3)  .HIT  (100.31  .SUNKUOOl 
1 . HATER  1 1001  .NAME  (100.61  .  BUFFER  ( 100. 8)  .BLUPAS  (6)  , REDPAS  (6)  . 

2 1  PLAT. I A 1 R. 1  SURF . 1SU8, AOV , PDV. AE V , PE V , ERAT 1 C, BLUA1 R, REDAI R, BLUSUR, 
3RE0SUR, BLUSUB, REDSUB, PBA1 R1 . PBA1R2, PRA1 R1 , PRAIR2, PBSUR1 . PBSUR2, 
4PRSUR1 . PRSUR2, PBSUB1 . PBSUB2. PR5UB1 , PRSUB2 
CALL  OISTAN  (PLATFm  (1 . 31  .PLATFM  ( J,  3)  .GIST) 

T-OIST 

AEV-T/3. *.99 
IF  (AEV.EQ.Ol AEV-1 
AEV*AEV»PLATFM  U.6) 

RETURN 

END 
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SUBROUTINE  PDVSUB  1 1 


1 

2 

3 

V 

5 

6 

7 

8 

9 

10 
11 
12 
13 
1  4 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


C 

c 

C  THIS  SUBROUTINE  COMPUTES  THE  PRSSIVE  OETECT ION 

C  VALUE  (POVI  FOR  RLL  PLATFORMS  THAT  HAVE 

C  PASSIVE  SEARCH  MISSIONS 

C 
C 

IMPLICIT  INTEGER  (A-H.P-ZI 

COMMON  PLATFMI100.37)  .  OETECT  (100.41  .HEP  (29.3)  .HIT  (100.3)  .SUNK  (100) 
1 ,  HATER  (1001  .NAME  (100.  E)  ,  BUFFER  ( 1 00.  8)  .  BLUPAS  (6)  , REDPAS  161  . 

21  PLAT. 1  AIR. I  SURF. I  SUB  AOV.POV. AEV.PEV. ERAT 1C, BLUA1R. AEOAI R. BLUSUfi. 
3RE0SUR,  8LUSUB,  REOSUB.  I'BAI  Rl .  PBAI R2.  PRA1R1 .  PRAI R2.  PBSUR1 .  PbSUfl2. 
UPRSUR 1 . PRSUR2. PBSUB 1 . PBSUB2. PRSUB 1 , PRSUB2 
POV-PLATFM  (I. 141 
IF  (PLATFM  (1.81  .EQ.O)  GO  TO  10 
POV*POV ♦ PLATFM  (1.11) 

IF  (PLATFMU.25I  .EQ.  1)  GO  TO  10 
IF  1PLATFM  (1,4)  .  jE.  1)  PUV-PDV-  1 
IF  (PLATFM  (1,4)  .  GE.  3)  POV-POV-  1 
10  IF (ERAT1C.EQ. 1) POV-POV-2 
POV-POV-PLATFM (1 .6) 

IF  (POV.LT.Ol  POV-O 

RETURN 

END 
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3 
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7 
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18 
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20 
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SUBROUTINE  PEVSUB  II.  J.D1STI 
C 
C 

C  THIS  SUBROUTINE  COMPUTES  PASSIVE  EVASION  VALUES  (PEV) 

C  FOR  ALL  SURFACE  AND  SUBSURFACE  UNITS  TO  COMPARE 

C  NITH  PASSIVE  MISSION  PLATFORMS’  PASSIVE  OETECTION 

C  VALUE  (PDVI 

C 
C 

IMPLICIT  INTEGER  (A-M.P-ZI 
REAL  T 

COMMON  PLATFM  (100.  37)  .DETECT  (100,9)  .HEP  <29.  3)  .MIT  (100.3)  .SUNK  (100) 
1  .HATER  (100)  .NAME  1100.6)  .  BUFFER  (100. 8)  .BLUPAS  (6)  .REDPAS  (6)  . 

21  PLAT. I  AIR, 1  SURF . 1  SUB, AO V, PDV, REV, PEV. ERAT IC. BLUAI R, REOAI R. BLUSUR. 
3RE0SUR , BLUSU8 . RE  DSUB , P8AI R1 , PBA1R2. PRAIR1 . PRA I R2. PBSUR 1 . PBSUR2 . 
4PRSUR1 . PRSUR2, PBSUB1 , PBSUB2, PRSUB1 , PRSUB2 
CALL  01  STAN  (PLATFM  (1,3)  .PLATFM  (J.  3)  .01  ST) 

T-OIST 

P£V-T/10.*.99 

IF  (PEV.  EQ.  0)  PEV«  1 

PE  V  =  PEV  ♦PLATFM  (J.  18)  ♦PLATFM  (J.6I 

IF  (PLATFM  (J.  7)  .  EQ.  1 .  OR.  PL ATFM  ( J.  7)  .EQ.3I  PEV-PEV-2 

IF  (PLATFM  tJ.  1)  .GT.O)  PEV-PEV-2 

IF  (PEV.  L T . 0)  PEV-0 

IF  (PLATFM  IJ.4)  .  EQ.Q.  AND.  (PLATFM  (J,7>  .  EQ.  0.  OR.  PL  ATFM  ( J.  7)  .EQ.2)  . 

1  AND. PLATFM (J. 1) .EQ.OI PEV-S 
RETURN 
ENO 
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•  ✓ 


SUBROUTINE  OETEKUI.  J.AP.D15T) 


I 


2 

C 

3 

c 

>1 

c 

THIS  SUBROUTINE  FILES  RLL  DETECTIONS 

5 

c 

IN  DETECT  MATRIX  (SEARCHER. TARGET) 

6 

c 

7 

c 

8 

IMPLICIT  INTEGER  (A-ZI 

9 

COMMON  PLATFMU00.37I  .DETECT  (100.9)  .MEPI29.3I  .MIT  (100.3)  .SUNKI1001 

10 

1  .HATER  (1001  .NAME  (100,61  ,  BUFFER  ( 1  00.  81  ,  BLUPAS  (6)  .  REDPAS  16)  . 

1 1 

21PLAI .  1AIR,  1  SURF , I SUB. ADV.PDV, AE V.PEV, ERAT I C. BLUA1R. REOAIR. BLUSUR, 

12 

3RE0SUH. BLUSU8. REDSUB. PBA1R1 . PBA1R2. PRA1 R) . PRA1R2, PBSuR) . PBSUR2, 

13 

9PRSUR! . PRSUR2. P8SUB1 . PBSUB2, PRSUB1 . PRSUB2 

19 

DO  10  1*1. 1 00 

IS 

IF  (0£  IECT  (I.  11  .EQ.-l)  GO  TO  20 

16 

10 

CONTINUE 

17 

MR1TE 16. 100) 

18 

100 

FORMA!  Cl  DETECT  ARRAY  HAS  OVERFILLED*) 

19 

RETURN 

2U 

20 

OETECT  (1.11*11 

21 

OE TEC  l  (1.21*3 

22 

OETECI  (1,3) -AP 

23 

OETECT ( I . 9) »DI ST 

29 

RETURN 

2S 

END 
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1 

2 

3 

>1 

5 

6 
7 

e 

9 

10 
i  i 
12 
l  3 
IN 

15 

16 

17 

18 

19 

20 
21 
22 
23 
21 

25 

26 

27 

28 

29 

30 

31 

32 

33 


SUBhOUT 1 NE  1 NVRT 1  1 1 NPUT . 1  PUT) 

C 

C  THIS  subroutine  inspects  a  line  of  characters  ano  returns  the 

C  FIRST  ONE  01 SREGAROINC  ANT  LEA01NG  BLANKS. 

C 

IMPLICIT  INTEGER  IA-2) 

DIMENSION  INPUT (70) 

DATA  BLANK/  *  ’/ 

00  1  1-1.70 

IF  UNPUT  111  .EO. BLANK)  GO  TO  1 
I PU T- I NPUT  (11 
GO  TO  2 

1  CONTINUE 

2  RET  UR, 9 
END 

SUBROUTINE  INVRT6  (INPUT, IPUT) 

C 

C  THIS  SUBROUTINE  INSPECTS  a  LINE  OF  CARACTERS  AND  RETURNS  THE 
C  FIRST  SIX  CHARACTERS  DISREGARDING  ANT  LEADING  BLANKS. 

C 

IMELICIT  INTEGER  (A-Z) 

DIMENSION  INPUT  (70),  IPUT  (61 
data  Blank/*  •/ 

00  1  1*1,70 

IF  (INPUT  (II  .EQ. BLANK)  GO  TO  1 
L-l-I 

DO  2  J.l,  6 
I  PUT  U)  -INPUT  (L«J) 

2  CONTINUE 
GO  TO  3 

I  CONTINUE 

3  RETURN 
ENU 
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SUBROUTINE  SCLASS  INHME  ,  I NDE  X .  NAMESH) 

THIS  SUBROUTINE  COMPARES  NAME  (8A2)  TO  THE  NAMES  IN  THE  ARRAY 
NAMESH  AND  RETURNS  THE  RON  INDEX  OF  THE  NAME  THAT  MATCHES. 

If  THERE  IS  NO  MATCH.  INDEX  IS  RETURNED  «  0. 


IMPLICIT  INTEGER  I  ft- £  J 
DIMENSION  NAMESH  II  30,  81  .  NAME  18) 

I  NOE  X-0 
DO  1  1-1.  1  0 

1  f  INHME  111  .  NE . NAMESH  11,11)  GO  TO  1 

I  f  (NAME  (21  .  N£ . NAMESH  11,21  )  GO  TO  1 

IF  (NAME  (31  .NE.NAMESHII.3I)  GO  TO  1 

IF  INliME  (41  .NE. NAMESH  II  ,4)1  GO  TO  1 

INDEX- I 

GO  TO  2 

CONTINUE 

RETURN 

END 

SU8RCUT  1NE  NAME  1  li  I  INPUT .  I NDEX.  NAME .  AC  I .  AC2.  SUR1 .  SUR2,  SUB1 .  SUB2) 

THIS  SUBROUTINE  i  OMPARES  INPUT  I6A1I  TO  THE  NAMES  IN  THE  ARRAY 
NAME  AND  RETURNS  THE  RON  INDEX  OF  THE  NAME  THAT  MATCHES. 

IF  THERE  IS  NO  MlTCH,  INDEX  IS  RETURNED  -  0. 

MPLlCir  INTEGER  M-Zl 
1 1  MENS  1  ON  INPUT  (i  I  .NAME  1100.6) 

NOEX-O 
iO  I  1-1,100 

IF  I  (I.GE.  AC  1.  AND.  I  .LE.AC2)  .OR.  II .  GE.SUR1 .  AND.  1 .  LE.  SUR2)  .OR. 

I  1 1 . GE. SUBl . AND. I . L E . SUB2I 1  GO  TO  10 
GO  TO  1 

IF  (INPUT  111  .NE.Nl  ME  (1 ,  1)1  GO  TO  1 

IF  (INPUT  (21  .NE.Nl  ME  (1 ,2>)  GO  TO  I 

IF  (INPUT  (31  .NE.NI  ME  (1 ,3)1  GO  TO  I 

IF  (INPUT  (N)  .NE.NI  ME  II  ,11)  GO  TO  I 

IF  (INPUT  151  .NE.NI  ME  (1.5)1  GO  TO  1 

IF  (INPUT  (61  .NE.NI  ME  II  .6)  )  GO  TO  I 

INDEx-l 

GO  TO  2 

CONTINUE 

RETURN 

ENO 


•  ✓ 


1 

SUBROUTINE  0 1  STAN  l  XX ( T  T ,  Dl 

2 

C 

3 

C 

9 

C 

OETEI HINES  HEX  OISTRNCE  BETWEEN  TWO  COORDINATES 

S 

C 

1N0  RETURNS  THAT  DISTANCE 

6 

C 

7 

c 

8 

ihpl:cii  I NTECER (A-Z) 

9 

D I  HE r  SII3  1  X  (21  .  >  (2) 

10 

ZERO  0 

1  1 

ONE- 

12 

COl* 

13 

ROW*. 

19 

X  (COl  i  *X  </100 

15 

X  (ROW l  -X  <-X  (COU  «  1  00 

16 

T  (COl  i  »T  /100 

17 

T  (ROW  i  *  f  ,  -T  (COU  *100 

18 

0-0 

19 

100 

IF  ( X  COL  i  -T  ICOU  l  200,  300.900 

20 

200 

IF  ( X  ROwl -T  (ROW)  l  210.220.230 

21 

210 

IF  IMUO  (X  (COL)  .21  .EO.  ZER01  X  (ROW)  -X  (R0W1  *1 

22 

X  (COL)  -X  i  COL  I  -1 

23 

GO  TO  500 

29 

223 

O-O-r  ICOU  -X  icon 

25 

GO  TO  600 

26 

230 

IF  (MOO  (X  (COU  ,21  . EO.ONE)  X  (ROW)  -X  (ROW)  -1 

27 

X  (COL  i  * X  (COU  ♦  1 

28 

GO  TO  ,00 

29 

300 

0-0' IHdS (X (ROW) -T  (ROW) 1 

30 

GO  TO  600 

31 

900 

IF  (X  ihJwi  -T  (ROW)  1  910,920.930 

32 

910 

IF  (MOO  (X  (COU  ,2)  . EO.  ZERO)  X  IROWI  -X  IROWI  *1 

33 

X  (COU  -  X  (COU  -1 

39 

GO  TO  500 

35 

920 

o-o-x  i:ou  -t  (cou 

36 

GO  TO  600 

37 

9  30 

IF  (MOO  (X  l  COL  1  .  21  .  EO.ONE  I  X  IRON)  -X  (ROW!  -1 

38 

X  (COU  *X  (COL)  -  1 

39 

500 

0-0»  1 

90 

IF  (  (X  (ROM -T  (ROND  ,NE.  ZERO)  GO  TO  100 

91 

IF  (  (X  (COU -T  (COU  1  .NE.ZERO)  GO  TO  100 

92 

600 

RETUHN 

93 

END 
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APPENDIX  G 


PROGRAM  ACCESS 


The  Up  Scope  fortran  source  code  is  residing  on  tape  in 
the  computer  center  tape  library  at  the  Naval  Postgraduate 
School.  The  name  of  the  tape  is  UPSCOP  ,  as  is  the  file¬ 
name. 

The  following  program  will  generate  the  Up  Scope  fortran 
source  code  in  card  image  format  (2358  cards). 

1)  //SNAKEPIT  JOB  ( 1445, 0195 , RY91 ,,, 3000) ,* GRIGGS ', TIME=2 
This  card  is  the  standard  NPS  job  card  with  two 

exceptions:  ",,,3000"  to  override  the  punched  card  limit  and 
"TIME=2"  for  more  than  20  seconds  of  CPU  time. 

2)  //  EXEC  PGM=IEBPTPCH 

3)  //SYSPRINT  DD  SYS0UT=A 

4)  / /SYSUT1  DD  UNIT= 3400-3, V0L=SER=UPSC0P,DISP=(0LD, KEEP) , 

5)  //  LABEL= (1 ,SL, , IN) ,DSN=UPSCOP 

6)  //SYSUT2  DD  SYS0UT=B 

7)  //SYS IN  DD  * 

8)  PUNCH 

9)  /* 
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